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Common Electronics Symbols and Abbreviations 

The following are Electronic Symbols and abbreviations, having to do with 
Valtge, Current, Power, Frequency, Inductance, Reactance, Capacitance, 
Resistance. For electroncs formulas, refer to the technical (green) section, 



English Letter Symbols 

A. =Ampere (Current Measurement) 
C =Coulomb (capacitance Charge) 
E =Electromotive Force (Volts) 
G =giga (billion or 10 to 9th) 
I =Current (Unit= Ampere) 
K =Kilo (one thousand) 
kV=Kilovolt (thousand volts) 
kV=Kilowatt (1000 watts) (power) 
H =Mega (1 million) 
mA=Milliampere (l/1000th ampere) 
mV=Millivolt (l/1000th volt) 
n =Nano (1 billionth or 10 to -9) 
nF=Hanofarad (1 billionth Farad) 
P =Pico (10 to the minus 12) 
PW=Picowatt 

VA=Yoltampere (One Volt at 1 Amp) 

Wh=Vatthour 

uA=Microampere 

uH=Microhenry 

Abbreviations: 

ac= Alternating Current 

am= Amplitude modulation 

amp hr=Ampere hour 

ant=Antenna 

assy=Assembly 

avc= Automatic Volume control 

bfo=Beat frequency oscillator 

B&S=Brown & Sharpe Wire Gage 

cb=Common base 

cf=Cathode follower 

cw=Continuous wave 

dB=Decibel (Sound measurement) 

demod= Demodulator 

dpbc=Double pole, back connected 

dpfc=Double pole, front connected 

dpsw=Double pole switch 

D =Drain; duty factor 

emf =Electromotive force 

erp=Ef fective radiated power 



Bd=Baud (speed of communications) 
dB=Decibel (sound measurement) 
F =Farad (unit of 6^fi4xt*SI«4^t 
GHz=Gigahertz- One Billion Hertz 
J =Joule (Inductive energy unit) 
kHz=Kilohertz (frequency) 
kVA=Kilovoltampere. (1000V*1A> 
kVh=Kilowatthour (1000W for 1 hr) 
MHz=Megahertz (1 million hertz) 
ms=millisecond (1/1 000th second) 
mV=milliwatt (1/1 000th watt) 
nA=Nanoampere (1 billionth amp) 
ns=Nanosecond (1 billionth second) 
pF=Picofarad 

V =Volt (Electromotive Force) 

V =Vatt (unit of electrical power) 
u =Kicro (1 millionth) 
uF=Microfarad 
us=Microsecond 



af=Audio Frequency 

amp= Ampere 

amp 1= Amplifier 

apc= Automatic phase control 

atten= Attenuator 

AVG= American wire gauge 

bp=bandpass 

cap=Capacitor 

ce=Common emitter 

ct=Center tap 

C =Capacitance, Capacitor, Coulomb 

dc=direct current 

dp=Double pole (switch) 

dpdt=Double pole, double throw 

dpst=Double pole, single throw 

dt =double throw 

ef=Emitter follower 

env=Envelope 

E = Voltage; Emitter 



Continued inside back (blue section). 



Afeo-m-t TS-2068 SAFE DISK UP-DATE 

TS-2068 SAFE DISK UP-DATE is a general publications to support TS-2068 Users. 
SDU is orientated to those serious users who have already, or intend to upgrade to 
Disk Drive system. SDU is written for all levels of user programming. The expert 
programmer will likely think that the content is too basic and the novice wi feel 
that it is too advanced. To the latter, knowledge is gained by the study oxtails 
that are foreign, as no one learns from re-hashing what one already knows. There are 
many TIMEX CLUBS, one within your commuting range. These clubs provide a great 
opportunity to benefit from the exchange of programming informat ion Some proauce 
club newsletters that are well worth subscribing to. I subscribe to no less than four 
of these club publications. Current listings of active clubs can be found in Time 
Designs Marine SyncVare News, and Computer Trader Magazine, all of whi^h are MUbl 
SUBSCRIBE IS" publications thai support the TS-2068. TO THE EXPERT PROGRAMMER, this 
issue is a bit weak on Machine Language programming, but I'll bet that you can find 
some new kinks in BASIC that will support your programming efforts AND, the program 
"SDOS MAIL MERGE" is a natural for assembling into MC. Ve will do that m the next 
issue. Vhy dont one of you MC artists beat me to the punch and send m a article on 
this? Do it and your works will be published, 

SYNTAX- Vhile SDU is "Disk Drive Orientated", and is now slanted to the Safe 
Disk ' Operating System (SDOS), all programming presented can easily adapt to any other 
Disk Controller syntax, and to Cassette. SDU will begin to support other disk systems 
as writers begin to support SDU. I received a nice letter f rom Mr. ^rry Kenny of 
LARKIN ELECTRONICS inquiring if SDU is a "General Publication for the TS-2068 . YES, 
it is intended to be just that. BUT, to cover all systems. ™™ 
CONTRIBUTIONS from those who use the systems. I would ^ *° T f** ^ffnr his 
SECTION" . Larry Kenny deserves much credit for developing the LARKIN DISK and for his 
perseverance. He even has a "Universal DOS DISKETTE" that is compatable with the 
Oliger SAFE DISK System. I haven't tried that, but would like to. 

AERCO FD-68 DISK SYSTEM: David Hill started a nice newsletter for Aerco FD-68 ., 
Disk Users. I subscribed and received two issues of FD-68 User and I must admit that 
my money's worth was received in the two issues. BUT, it appears that FD-68 USER is 
gone. The current issue is well past its time and correspondence to Dave is being 
returned "no forwarding address". Maybe this is hasty, and I'll be sure to correct it 
if it proves to be so. If the latter is the case, I dont want to compete for FD-68 
users, but would like to invite all to subscribe to SDU. If FD-68 User does not 
resume, then perhaps we can start a special section in SDU to serve the Aerco users. 
Again, VRITER SUPPORT will be needed and welcomed. 

OUTLOOK: A publication builds upon the effectiveness of its content and the 
enthusiasm of the user group that it represents. Both equals success I am 
enthusiastic and I proj ec/about 300 subscribers by mid 1988 and increasing. When we 
" that point, a break even situation will exist and consideration will be given to 
expand coverage' and to change to a bi-monthly schedule. BUT, First Year First! I am 
committed to a full year of publication of SDU before even checking on RaD INK 
(losses). Then we will decide. Best 0 Computing to all. 

WINTER COMPUTER FEST IN ORLANDO, FLORIDA: Right in the midst of Disney World, 
Sea World, Circus World, nearby to the East Coast Beaches and to the Space Center 
What a great place to combine a Computer Fest and a Family Vacation! The details will 
unfold between issues of SDU. Watch for news in TDM, SYN, and TDM Eric Johnson 249 
N. Hardin Ave, Orange City, FL 32763, is your contact. He needs your support for 



success. 



By Bill Jones 



Eia-tli-us ±st€3-fc ±<=> 2068ers 



I wish that I could print the dozens of enthusiastic and supportive letters 
that I have received from dedicated 2068ers. One nice guy even sent an extra 
$15.00 "for the kitty". There is a real solid desire for a publication dedicated 
to TS-2068 support. THANKS to all of you well wishers! Soon we will see just how 
many serious 2068 users are out there in the USA and CANADA. Counting noses, 
Canadians are right in there at the stretch. One of you Canucks send me a little 
maple leaf decal to dress up the pages with. It'll go side by side with the Stars 
and Bars. Incidentally, I have had the priviledge of flying side by side with 
many RCAF Jocks and I can tell everyone that the Country to our North is a proud 
and sturdy neighbor having a tradition of integrity that is difficult to match. 

Gaffs and Laf fss 

Def eni-t icliions 

Interface: Vhats under the cold creme as the wife prepares for beddi-bye. 

Dynamo: A small town in Missouri. 

Data bus: Kissin and talking at the same time. 

Syntax: A Colorado tax on brothels. 

Peripheral: What one sees outta the corners of the eyes. 
Optimist: One who believes the sky is rising with him in it. 
Pessimist: One who believes the sky will fall upon him. 
Free: What taxes provide to them that dont pay taxes. 
Service: A crime committed by a male. 

Consultant: One who can't do it but wants to tell you how for a price. 
Coax: A small axe which has two cutting ends. 

Telecomputing: Secrets told to a friend and relayed to others. 
Trouble Free: It dont break as much as it usta. 
Buffer: Where Ha keeps the Sunday table cloth. 
Grand Canyon: Vhere the Injuns dug the dirt for the Rockies. 

Your eyes are fooling you. 
All Lines are Straight, 
ani Snna r-<=<=; are Sauare. 
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Eye Burn From Computer Monitors 
Computers have introduced a damaging phe nomenon. 
■.Konitor P Burn". Monitor burn is S i»ili a r ^'""a J^noon 
P yes as sunburn after a day at the beach or a a« e ™oon 

ITflZ oTMl eyes? a severe condition that has lasting 
effects. 

Color Monitors produce the most eye damage. Monitors 

the day and until the symptoms disappear. 

= T,n+if-p<s the symptoms of Monitor Burn, 

the eyes could be °°" 8id * ra ^ ecovery . Recovery may 
necessitating a prolonged period of recovery dro to 

require the continual use of "art f 1 t«« ^ 
overcome dryness, and or, a auvi^x 
bacteria infection of the eyes. 

Those who operate computers should be cons cious o f the 
damaging effects of Monitor Burn and take ^ P^ ecial ly 
1. Use sun glasses « InjJ f s °^£"^ bla< &. color 

^T^li. - -rye-dr^ 5" £ 

r^^-"^"^ 1 ^ -^discontinue until the 
symptoms disiappear. 
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Editorial 



Here we go! Like the Wright Flyer, we're off the ground! This first issue 
of TS-2Q68 Safe Disk Up-date cost a bundle because of the insert cover and 
section separations. But maybe the red ink will change to green by the end of 
the first year, I wanted to provide a couple of pages for each section so that 
you would get acquainted with the organization. These sections will build as 
the issues come to you, 

The pages are punched for insertion in a three ring note book in order to 
keep the issues together in one place. Each section will be a different color 
so that major subjects can be easily found. I've never seen a publication 
organized that way, but I've never published anything before. Anyway, it 
sounded like a good idea. 

If you like this issue, please rave about it to all who have a TS-2068, 
members of clubs especially. Although we will always support SDOS, the subject 
matter will be applicable to the TS-2068, whatever the configuration. Please 
help the newsletter grow by recommending it to your friends. 

This issue has several useful utilities plus two major programs, The 
second program "SDOS KAIL MERGE" is outstanding in its usefulness, SDOS MIL 
MERGE will work right now as a printing mail list, using the Safe Disk printer 
driver routine. It will print labels and envelopes, or just listings of 
whatever nature you store in the data base. For the next two issues we will be 
adding more functions to Mail Merge. We'll add a couple more menus, a printer 
control group, auto printing of disk files, plus more. This software will grow, 

The first program is a nice group of six interactive utilities. You can 
actually do "mixed math" using inputs of HEX or Decimal. Multiply FFF Hex time 
123 Decimal, fof'*example. Even fractions are handled. Of course there is not a 
way of expressing fractions in HEX, but this will work: Divide 102697 by FA5 
Hex, The result will be printed in decimal with fraction. Direct conversions 
of Decimal to Hex or Hex to Decimal are handled up to FFFFFFh or 16777215 
decimal. Thats 16 megabytes. 

SDU DISKETTES: Lazy? Well, maybe just "busy". Whatever, if you dont want 
to key in the programs and utilities and debug key-in errors, you can order the 
"SDU DISKETTE". There will be a SDU DISKETTE for each issue. Each SDU diskette 
will have all programs and utilities of that issue on 5 1/4 inch diskette. 
Additional documentation will be provided when appropriate, All formats of 5 
1/4 inch diskettes will be supported. You can order the SDU Diskette for a 
price of $16.00, See the order form in the yellow pages for each issue. A 
scheme has been concocted to share the proceeds of SDU Diskette sales with the 
authors of the programs and utilities. SDU will provide the diskettes and take 
50% for expenses. The other 50% will be shared on a basis of the author s 
percentage of the total diskette programs. One wont get rich this way, but will 
at least receive something for one's efforts. 

The BLUE section of SDU will be filled in as issues continue. It will be a 
complete "Electronics Data" section and will include all abbreviations, symbols, 
conversions, tables, and formulas. The Technical Section will contain all of 
the ■ TIMEX schematics, Port pin assignments, Oliger schematics, and technical 
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data about modifications. 

The Club; Veil, actually it isn't a club, but lets think of TS-2068 Safe 
Disk Up-date as representing the TS-2068 user group. SDU encourages your 
participation, your questions, and your comments. Ve need useful utilities and 
short programs for publication. Please send in your creations. Lets use this 
analogy in computer syntax; < IF 100 subscribers SHARE utilities and 
programming TIFS THEN ALL MAY INCREASE computer literacy BY a FACTOR OF 100 > < 
IF NO OVERLAP >. Oh well, you get the gist of the idea. Lets have a 
participating group for the benefits of all. 

The section titled "TS-2068 Computing Vith SDOS" is John Oliger's section, 
his rapport with Safe Disk Users, John will answer all of your questions. Send 
your questions to the newsletter, or direct to John. I'm sure that John already 
has a number of questions that he has answered to individuals, that would also 
be of interest to most users. I'll keep my hands off of this section and it 
will be what you, the readers, and John make of it. 

Subscribers FREE ADS: You may send in an ad to sell something that you 
dont need anymore, or ask for something that you dont have (Wanted), or TRADE, 
These free ads will be column printed and must be 400 characters or less in 
length, Flease give your mailing address and phone number if possible, and 
state if the item is in working order. 

The Catalog Section; Consider this "the yellow pages". Some of the ads 
will be paid ads from vendors. Subscribers who have their own software or 
hardware to sell may "announce the product" FREE. Such free announcements must 
be sent in "copy ready" and shaped to 1/2 page in size. Use a good typewriter 
or computer print with a "letter quality" printer. Draft quality print wont 
copy very well. These subscriber "Free Announcements" are given to encourage 
the programmer to create good software for the users. It's tough out there to 
have to pay to advertise to a small user group, This may induce our qualified 
programmers to PRODUCE, 

REVIEWS: Ve need volenteer reviewers, If you want to receive software and 
write reviews, please write in and get on the SDU writer list. Individuals or 
firms who desire that a product be reviewed, please send the software or 
hardware to the newsletter, Ve will expect that a software will be kept by the 
reviewer as compensation for the writing effort. Reviewers of hardware should 
be allowed to purchase the hardware at 40% off market price, 

LETTERS: I will appreciate your comments. The editorial section will, be 
kept brief because we dont want much "non permanent" data to clutter up the Safe 
Disk Notebook, Letters, while appreciated, may not be published, depending upon 
whether or not the comments are deemed to be of interest to most subscribers, 
QUESTIONS and informatives VILL be published. Complaints about vendors will be 
handled by direct contact with the vendor to attempt to satisfy the user, and 
will be published only if a vendor fails consistantly to resolve complaints. 

So, thats my two cents worth for this October 87 issue. Hang in there and 
participate! Ve need that. (Ed) 
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How Goea It? 



Plans and Organization 



Now Pi gonna take a leaf from 'oie Chefs book and, 
ramble a bit. SOU intends to cover ALL TS-2068 Disk Drive' 
Systems. These are; The Oiiger Safe Disk, The Aerco FO-68 
The Larkin, and The TQS (Zebra). Eric Johnson (your contact'^ 
for the Florida Coaputer Fest) has agreed to provide writer' 
support for the LARKIN DISK system. By the January issue of 
SOU we should have a writer lined up to provide coverage of 
the TQS DISK system, and another for the FO-68 DISK system, 
Other good programmers and writers have promised articles 
and programs for future issues. Misters Tom Kalogerson 
Robert Hartung, Dick Wagner, Roelof Mulder, and John 
McKichael, have ail promised to help with the writing. I 
really appreciate this and am looking forward to publishing 
their works. As these and more writers join in, SDU will 
become the most exclusive source of up to date information 
about the TS-2068 and its disk systeas. 

Want to call a Bulletin Board and leave a message for 
all to read, or get info about the Orlando Coaputer Fest? 
Set your Modem up and running and let your coaputer dial 
904-775-0093. Use 300 BAU0, 8 - 1- none, as the log on 
protocol (No Voice). This is Eric Johnson's BB (NW FLORIDA 
TSU6), headquarters for the 88 Winter Coaputer Fest. 

Eric also has a NEAT, and inexpensive DOCK RAM board 
which he will write up as a building project for SDU. This 
fits in nicely with a EPRQM programing article by Toa 
Kalogerson, and one that I am planning for conversion of the 
(Qliger) 64k RAM for the TS-1000 to a 64K Oock RAM to fit 
into the extra slot of the expansion bus. BASIC programming 
details will be given. These articles will be paced so that 
a siailiar subjects do not take up a whole issue of SDU. 

Planned are articles and prograts about such subjects 
ss! Dock Progratting, EPRQN Progratting, Extra /(etor ) 
Devices, Telcotputing, Interfacing, Disk Drives, plus tore. 
The Materia! presented in SDU till not be designated as 
'public dotain', but vill retain the property of the vriter. 
Each subscriber is given the prograts for individual use, 
Ho*, a bit on 'self interest'. Sote of you knov that I at\ 
the author of the software 'Start Text', and tay be 
tendering if SDU is sote thing to feather ty nest. ST has 
been on the iarket long enough that altos t everyone vhc 
vants it already has it, and 1 do not have, nor do I inteno 
to have anything else to sell. Naturally, I believe that SI 
is a good and useful prograt, and I'll keep a 'Subscriber 
Ad' in SDU offering it to any vho rants a copy. You can dc 
that also for any software or hardware that you have for 
sale. Free subscriber ads are given to encourage our 
software niters to produce. There are tany expert 
progratters in our tidst, but fev are producing products foi 
sale because of the costs of advertising to a stall user 
group. Haybe sote vill release their products via the Fret 
subscriber ads. So, 'hov bout it', you progratters? Lets 
get your good prograts into circulation. 



fit this writing there are 45 subscribers to SDU. Dent 
laugh! These 45 cate frot a tail out invitation to only 
IOO. fill are SfiFE DISK users. More subscriptions are 
trickling In each reek, and anothe/ IOO tail outs to SO 
users vill be done soon. The projection is for 2-300 
subscribers by July SS. Publication of SDU is 'by year of 
issues', vhich teans that a subscription year is OCT to 
JULY, and each 'tid year' subscriber vill receive that 
current year of issues. This strange set up does tvo fine 
things. It provides the nev subscriber vith the back up 
issues that are supporting, and it takes each issue tore 
unifort in distribution. 

I expect that the publishing of SDU vill cost te about 
$200. 00 tore per issue than subscription incote- until the 
subscription base reaches about 300 (the break even point). 
The sales of issue diskettes can help this posture by 
bringing in stall profits. I vill cottit to a full year of 
publishing and see hov it goes for the OCTOBER S3 issue. 
Enthusiast of the TS-2068 users is the essential factor. IF 
ve have that, and IF the subscription base builds, THEN 
PERHAPS 'SDU can becote a bi-tonthly, beginning vith the Oct 
S3 issue. 

The Lonesome* Dock 

I Mentioned that the tvo prograts in this issue vere 
designed for installing in a Dock Cartridge. To date little 
infortation has been published about hov Dock Cartridge 
prograts, Hote Bank ffetory, and Disk Drives can be 'cross ' 
utilized'. Picture a S4K Dock cartridge that has a tajor 
softvare, plus the tvo prograts in this issue, plus TVO ME 
tajor prograts. The tajor prograts are all edited to retove 
ALL screen presentations and replace vith a sitple disk call 
(LOAD /'title'SCREENO. Each tlte that is done, the prograt 
length of the Dock Prograt reduces by 400 to 700 bytes. Cut 
8 tenus and screens and the prograt length is reduced by 
3-6K. 

Another aspect of Dock Prograts is the fact that the 
dock prograt contains NO VARIABLES. Just pure progratting. 
Variables can be identified in a dock prograt, but the vars 
are STORED in Hote Bank. The DATA and Vars in the hote bank 
can easily be tanipulated by the dock prograt. So can the 
Disk Drive. Prograt planning can easily result in the Dock 
Prograt tanipulating at vill, its ovn 64K of prograts, plus 
3SK of FREE Netory in the Hote Bank, plus a 'Hillion K' of 
data in your diskette library. 

So far,' the TS-2068 cottunity has not etbraced the Dock 
Cartridge vith the enthusiast that it deserves. Articles 
about Dock Progratting have been very technical, presenting 
the picture that the use of dock cartridges is very 
difficult to taster. The progratter's job is to reduce 
cotplexity to 'user friendliness', and this can be done 
easily. Ue vill explore all of the above in future 
articles. 
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The Programs for This Issue 



Actually this page ris rritten ifltr the outstanding 
editorial of page 1 and 2. After reading it I didn't think 
it did justice to tbt tro progress of this issue, so 1 u 
expound a bit, and be so.erhai repetetive. 

the ho progms ire in CRASH Ft® BASIC. BoM 
progms rere originally designed to consolodate into s Bock 
Cartridge, along rith mother .ajor sotlrare. 
eub ire supportive. Tbe disk drire is ™d to hold 
supporting .enus for 'SOBS HAlt KERBE', thus saving a ou 2K 
of progra, .e.ory. ft Ml hart ' Mure article about 
doing tbe Bock Cartridge transfer. 

SOUS Mil HEBSE1 If you lun 'Fro-File' and like It, 
you'll also like this softrare. There are tro flexible data 
bases. One is the '.all urge' base rhich has up to about 
120 fields of 7 lines each. The user decides the nuaber of 
fields needed and sets tbe first dieenslon by 9"f- Jf 
of tbe seven lines are set for SI characters each u can 
.ake tbe line, longer or shorter by editing li < 20 and 
changing tro. St characters to rhalever you 
length The pri.ary purpose of this da t, , 
to be a Hailing List, using the first four lines of each 
group (field) for -address data lines', plus the I 
»«• of the individual as the fifth line. Then tro . ore 
data lines are provided for ancillary Intonation about the 

' '"^envelope printing uses the first four lines 
only. Fro.pts alio, you to set up both vertical and 
horizontal spacing to strike , series of labels or envelop « 
unifortly. Another pro.pl provides 
your c»n return address label after each 'out labe p ints. 
Bisk files of tailing lists say be ordered for loading and 
printing. Also, autcatlc 

nu.ber Is a ,cnu option. The data base Isjdeally suited for 
.any other purposes, such as salting up Invoice fields, 
inventory lists, .agazine article listing,, or Just anyWng 
that one needs to retain as data. The tenu allors a 
selectable nuaber of lines of the field, to be printed. 
Auto.alic page control rith page nuaber is a option. 

Sorting i, provided by either first 
men the data base Is used for Inventory ^ so r ing can be 
by either stock nu.ber or noun. Sorting in BASIC Is rather 
/lor, but nofarfully slot, and ho, often does one need to 

^'second data base is 'OVTLIHE'. 
entirely flexible and Is set by Input prop t'J ° r -J™" 
of Haior Topics', 'Huaber of Itinor lines of Each', and Line 
LI' me Minting Is set by input of US, and Spacing. 

f outlin? fr its I input TAB for the sajor topics and 
ZJ for the .Inors. Auto.allc page control and page 
%Li»A Centered Subject "P"™?"' 1 " 
optional. The. cm allot, complete W una n printer 




Ho, can one na.e a progra. Mat ha, six diver st 
function,? Will cotbtnes tost 'nuiber functions needed 

"mm HAHASEA I, the ftr,t 3 useful utilities for the 
Itachine Code progra.aer. Call it '.Ini z' if, you like. 1 
Sally designed it to avoid having to convert hex to 
Si to poke's HC progra. to .e.ory. Then evo lu^n took 
M d. Tro BATA lines are used to preserve a ItC Code <tMe. 
One data line Is tor I HEI progris, and another data-line is 
Z / Beci.al progra,. By placing a ItC progra. in i data 
Ine lto rn n » smto diskette before attesting 
to run the ItC progra,. Then the ,enu pro.pts for stari ng 
address, BEABS the data line, and Install, the progra. into 
,e,ory. WE KEHOSt BISASSEltBlE/t rorks in 
any selected seg.enfof te.ory and print the block, of 
addresses. The contents of each address!, given In Beci.al, 

HE!, f^l" m [°// m COHVEBTBS: input a nuiber in 
either data base and the eoutlivant is given in all three 
J.U bases Conversions are provided fro. 0 to FFFFFF, or 
16,777,21S (IS ItSYTES). ,, 

3. HUIT1 LATEBAl ttlXEO HATH! Bunno rhi it , else to ca 11 
it malls FFAth ti.es 21S.3 deci.al? Or, 7SW11 divided 
by BtH llOOllt fhat Is FJSCh ilnus FOlAh? Or FFFAESh ilnus 
BIH ' imilllllllll Vhaieverll Vbo cares? Input any cobo 
of.lxcd nu.bcrs and the progra. culckly give, he ansrer. 

j- BWBECmi/m BBAPHICS: A college class on 
coaputer technology that I attended a MU ^/J'f ' 
h/ng up on this subject. A conceptual visualization of the 
three bases helps. A key punch brings on the graphic ^ 
correlations. 

THE KEY-IH PROJECTS 

frst short utilities *!!! slip right Into computer 
without iuch de-bugging (or key In errors. It Is the longer 
progra that give problems. Bui ^/^r progm 
usually tore useful and enduring. Please be assured that 
U ' progra. listings are actual LUSTS of a operating 
program. SM fill not atte.pt to type cut a progra* to Mate 
li fit Into a page foriat, and risk typos, fill mbe 
actual LUSTS frot the computer. These tiro progms till be 
difficult to avoid key In errors because of long and coiplex 
lines that eiploy Boolean expressions using brackets and 
Math symbols. After a fev hours one tends to give up. 

These tro progms are *orth the key In effort 
„Jr,d Both cotpare rith softwares for fipple and 
7note m^l P forcrerm f each The 'SM ISM 
DISKETTE', at (IS.00 Is the bargain of the year. Vho else 
£ buy useful software at such a price? 'Issue Biskettes 
contain ill progms and utilities In an issue off. They 
Z supplied on S UV diskettes in any fomt. The concept 
of 'issue diskettes' is to provide the author nth a little 
bit of compensation for his efforts, and to provide the user 
lith useful progms and utilities, rhi ^saving lots of 
terin tUe and frustrating de-bugging. Later, ire tayhave 
to increase the price, depending upon cost factors. Ve 11 
see ho* it goes for it least one tore issue. 
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About your Editor, plus Nostalgia 



Vay back in the turbulent 'SO's the USAF developed a gun sight vhich could, froa 20 ailes, 
autoaatically fly a fighter aircraft to a point in space to fire rockets, supposedly to destroy 
a eneay boaber. Thus case into being our first real coaputer application. Back then the 
transistor vas a drawing board figaent of engineering iaagination. Ve used Vacuua tubes, and 
lots of ua, thousands in a systea. Coaputing vas analog technology, using such aatheaatics 
principles as trigonoaetry, rotating rectors, scale factors, etc. You see, analog coaputing is 
based upon Voltage coaparisons and aeasureaents, rather than nuabers and aeaory. 

The F-89 Fighter aircraft vas the largest fighter ever built, and it vas a aachine built 
around a electroncis package. The Radar and electronics package caae in at about tvo tons, 
including the viring. That vas ay baby, to fly and to aaintain, and to look forvard to advanced 
applications. The evolution of ailitary coaputing led the electronics industry. By the 'SO's 
ve vere into Solid State devices, using diodes froa saall signal diodes to large high current 
diodes. High current diodes cut 600 pounds froa a electronics package and reduced heat 
considerably. Analog coaputing vas still the basis for coaputing. 

The late SO's brought on 'unreliable' transistors, affected by heat changes and vibration. 
Fev ailitary systeas vere developed to rely upon transistors. Then the aicro chip caae along- 
still very unreliable. But the industry began to lead the ailitary and find civilian 
applications for the aicro chip in such applications a cash registers and tiaing systeas. it 
vasn't until the aid 70's that the ailitary could package electronics systeas that contained 
aostly aicro devices. Still in Analog applications, the coaplex aircraft systea that veighed in 
at tvo tons could be packaged dovn to about 500 pounds, aost of the veight being in antenna and 
transaitter. 

Mlitary digital systeas caae in about the saae tiae as the Sinclair ZX-81 in the 78-7$ 
era. Then a systea veight of 400 pounds vould do aore than a thousand tiaes as aany 
applications and auch aore accurately than ay old F-89 (tvo ton) systea. Host iaportantly, the 
electronics industry vas 'un-coupled' froa ailitary doainance. The vorld vide coaputer 
evolution began, and the industry took off on it 's ovn pover based upon civil consuaption. Hov 
our ailitary systeas are engineered and built vith off the shelf iteas. 

Being froa the horse and buggy days of electronics, your editor vas delighted to have the 
opportunity to buy a ZX-81 (kit) for the bargain price of $199.95. But vhat a transition! Nov 
1 had to learn digital, things like Binary, and Hex, and Prograaaing languages! Ve vho are 
involved in electronics are constantly faced vith a problea called 'Obsolescence'. Take a year 
vacation and one coaes back to be overcoae by technology advances. One aust be continually 
engaged in his ovn personal education up-date prograa. It is a aatter of tiae sharing. In ay 
case that is a tough thing to aaster, vhat vith having too aany hobbies. 

I aa a avid TS-2068 coaputerist, a sailor, a coaaerical pilot and flight instructor, and I 
like to go golfing and fishing at least once or tvice a veek. 1'a 'betveen sail boats' right 
nov, and scheming on a vay of coabining coaputing and sailing. (Anybody got a 38' ketch for 
sale under $20H?), I've ordered a spare 2088 to go aboard ay next vessel and hook up to ship 
battery. I'a vorking on a prograa to navigate vith the 20S8 so that the sailor can get about 6 
hours of sleep vhile the 20S8 is at the he la. 

Nov, tiae sharing as it is, I refuse to pour over the SOU text for typos, dangling 
participles, and split infinitudes. So, soae typos vill be fixed vith pen and ink and if ay 
saashing of the Kings English is still understandable, then so be it. If you becoae irkedover 
non-graaatics just coae on dovn and go sailing. That's guaranteed to soothe any case of 
irritibilitis. I do believe that sailing and coaputing vill aix veil, so dont be suprised if 
the January issue of SOU is published at sea, tvix the tending of a trailing fishing line. And, 
I absolutely guarantee at least 10 gaffs in English and several pen and ink changes in each 
issue of SOU. See you in the islands! 



by: Barnacle Bill, the Sailor 






Curtiss NC-4 



"J-UTIL" LISTING 

'^>9800 6Q SUB VAL '9884": INK OF: BORDER 00; PAPER 00! CLS : P 
RINT FLASH OA) AT 00,08} 'MULTI LATERAL MIXED NUMBERS' I FLASH 
OQ' 'TAB OB| B MEHQRY ORGANIZER" 1 1 TAB OFj "DISASSEMBLER" 'TAB OJj 
•HEX OATA POKER" TAB ON; 'DECIMAL DATA POKER'" TAB OB} INK 3} 
'CONVERSIONS- HEX/DEC/BINARY" 1 'TAB 08} INK 5» "MATH WITH MIXE 
D DEC/HEX/BIN"'TAB 06} INK 4} 'BINARY ANALYSIS TABLE': LET A 
=i: FOR N=l TO 40: BEEP INT ((RND*iO)+i)/10,INT (RN0J35): IN 
K A: PRINT OVER OA} AT 00, OB}' ': L 

ET A=A+l: IF A>7 THEN LET A«l 

9801 NEXT N: CLS : PRINT INK oe} FLASH U'The ASSEMBLER/DISA 
SSEMBLER'} FLASH oo}' is designed to use DATA lines to o 
rganize a Machine Code prograi in either HEX op Oecinal, ,the 
n SAVE/ the prograi to Diskette before attesting to RUN 
the KC prograi and chancing a crash. A CRASHED program can 
be re- loaded froi diskette and worked on. OATA lines a 
re 9878 (DEC), and 9880 (HEX)."" The HC prograi is insta 
lied in leiory at your selected startaddress." " Selecte 
d segaents of leiory are peeked and disasseibled as desire 
d."' INK of} FLASH oa} 'MULTILATERAL NUMBERS'} FLASH 00)':" 
"The upper liiit for conversions arid lath is FFFFFF h, 16,7 
77,215deciaal. a>> INK oc 

9802 PRINT "AWays enter hex in CAPS."* INK odJ'You lay do 
tixed lath, »ul tiply, divide, add, subtract. Vatch the len 
u for electives."' INK oej'For Division, enter largest 
nunber first." "Accurate division dividend is expressed i 
n deciial fraction. DISREGARD HEX DIVIDEND IF THE DECIMAL 

IS IN FRACTION."' INK ofJ'You lay do MIXED addition using 
negative DECIMAL nuibers, BUT NOT NEGATIVE HEX. If the SU 
M isnegative, the deciial SUM will be correct, but the Hex 
SUM willbe false.'" INK od}'Nuieric expressions for DECIMAL 

input are O.K., ie: <PI t D>, <2* PI JF*L> < PEEK 23635+2 
56? PEEK 23636M)." 

9803 INK of: PAUSE VAL M4E4": CLS ! PRINT AT OJ.OBJ'PLEASE 
ENTER '} FLASH 0A}'CAPS SHIFT"} FLASH 00J' MODE" 'TAB 0B}'T 

HEN <'} FLASH QA}'CQNT ENTER"} FLASH 00}')": STOP 

9804 CLS : LET xv*oo: LET T»oo: INPUT "Select: i. Peek and D 
isasseible 2. Poke a Deciial Table 3. Poke a 

Hex table 4. Convert Hex-Oec-BIN 5. Mi 

xed Math 6. Binary Table"}M: CLS I GO TO ( 

i<oa AND i>of)IVAL "9804"+d>oo AND i<od)»VAL "9834"+d>oc A 
NO i<Q6)*VAL "9808' 

9808 IF i»oe THEN LET xy*oa: 60 TQ VAL '9886' 

9810 IF i»of THEN 6Q TO VAL '9934" 

9812 INPUT "1. Dec to Hex, or 2. Hex to Dec 3. Quit?'}X: IF 

X*oa THEN 60 TO VAL "9822" 

9814 IF x*oc THEN 60 TO VAL "9804" 

9816 OIH x$(6): INPUT "HEX 6roup!"}y$: LET xK'QOOOO'+y* AN 
D LEN y$»oa)+("0000"+y$ AND LEN y$-ob)+("000"+y$ AND LEN y*« 
oc)+('00'+y$ AND LEN y$*odH("0"+y* AND LEN y$«oe)+(y$ AND L 
EN y$*of): IF LEN y$>of THEN 60 TQ VAL "9816" 



\$818>LET D1'(1048576*(CQDE x$(0 
A)-0) AND CODE x$(QAXR)+(1048576*(C0DE x$(0A)-P) AND CODE x 
$(QA)>Q): LET 02«(65536*(CGDE x$(QB)-0) AND CODE x$(Q8XR)+( 
65536t(C0DE x$(08)-P) AND CODE x*(QB)>Q): LET D3*(4096i(C00E 
x$(OC)-0) AND CODE x$(QCXRX(4096*(CGDE x$(0C)-P) AND CODE 
x$(0C)>Q): LET 04=<256t(CQDE x$(0D)-0) AND CODE x$(QDXRH( 
256t(CQ0E x$(0D)-P) AND COOE x$(0D)>Q): LET D5=(16t(CQDE x$( 
0E)-0) AND CODE x*(0EXR)+( 16KC00E xf(QE)-P) AND CODE x$(0E 
)>Q): LET D6*(C0DE x$(of)-Q AND CODE x$(of XRWCODE x$(of)- 
P AND CODE x$(of)>Q): LET DEC*D1+D2+D3+D4+D5+D6: LET M$=x»: 
IF xy=oa THEN RETURN 
9820 60 TO VAL "9826" 

9822 INPUT "Input Decimal OR BIN Nutber: *}DEC 
9824 DIM x$(of): LET A S DEC: LET Bl-INT (A/1048576): LET A=A- 
BU1048576: LET x*(oa)*(CHR* (Bl+0) AND BK10)+(CHR* (Bl+P) 
AND Bl>9): LET b2»INT (A/65536): LET A=A-B2*65S36: LET x$(0B 
)*(« (B2+0) AND B2<10)+(CHR$ (B2+P) AND B2>9): LET B3=INT 

(A/4096): LET A=A-B3?4096: LET x$(0C)*(CHR* (B3+0) AND B3<1 
0X(CHR$ (B3+P) AND B3>9): LET B4-INT (A/256): LET A=A-B4*2S 
6: LET x$(0D)»(CHR$ (B4+0) AND B4<10)+(CHR$ (B4+P) ANO B4>9) 
: LET BS»INT (A/16): LET A*A-B5ti6: LET x$(QE)«(CHR$ (B5+Q) 
AND BS<10)+(CHR$ (BS+P) AND B5>9): LET x$(of)*(CHR* (A*0) AN 
D A<10)+(CHR$ (A+P) AND A>9): LET Ht=x$: IF xy»oa THEN RETUR 
N : REM 13 IF THEN Conditionals this line 
9826 CLS : PRINT 'DEC"'} DEC} TAB 15}'HEX*'} 
9828 FOR n*oa TO of: IF i$(n)>»0' THEN FOR n=n TO of: PRINT 
»$(n)}: NEXT n: 60 TO VAL "9832' 
9830 NEXT n: PRINT 'Oh" 
9832 60 SUB 9946: 60 TO VAL "9812" 
9834 LET T»oa: INPUT 'Start Adr? '}S: INPUT 'END Adr? "}Ej: 
IF M«oa THEN FOR N=S TO E! LET A*PEEK N! LET X=N: 60 SUB VAL 

"9874': 60 SUB VAL '9856' 

9836 IF i>oa THEN CLS : PRINT 'Working": 60 TQ VAL "9842' 
9838 IF NK THEN PRINT "DONE"" "Enter when Ready.': PAUSE 4 
e4: 60 TO VAL "9804" 
9840 NEXT N 

9842 LET RT=INT (S/256): LET 6T»S-(RT*256)-oa: IF 6T<oa THEN 
LET 6T»254! LET RT=RT-oa 

9844 POKE VAL "23731", RT: POKE VAL "23730', 6T 

9845 RESTORE (N=QB)*VAL "9878'+(M«QC)*VAL '9880' 
9848 FOR N=S TO E 

9850 IF M»ob THEN ON ERR 60 TO VAL '9882': READ A: POKE N,A: 
NEXT N 

9852 IF N)«E THEN 60 TO VAL "9882" 

9854 IF H»oc THEN ON ERR 60 TQ VAL "9882": READ X$: 60 SUB V 
AL "9876': POKE N,A: NEXT N 

9855 LET A-PEEK X: PRINT XI TAB 06 J Aj TAB OK}"d"}: 60 SUB VAL 
'9874": PRINT TAB 0Q}x$}" h"}! ON ERR 60 TO VAL '9862': PRIN 
T TAB VAL "24"}CHR$ A 

9858 RETURN 

9860 ON ERR RESET ! PRINT : RETURN 
9862 ON ERR RESET : PRINT : RETURN 
9864 IF A<33 THEN PRINT ' ' 
9866 IF T=oa THEN RETURN 

9868 POKE X,A! IF N S A THEN PRINT 'DONE': BEEP oa.OL: 60 TO V 
AL "9804" 
9870 LET x*x+oa 
9872 NEXT N 

Ccr^ r rt-^r p*.j<_ 
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9874>DIM x$(OB): LE 

T B=INT (ft/16): LET OA-BH6: LET x$(QA)»(CHR$ (B+Q) AND B<1 
0)+(CHR$ (B+P) AND B>9): LET x$(Q8)«(CHR* (C+Q) AND C<10)+(C 
HR$ (C+P) AND C>9): RETURN 

9876 LET DI=(16i(CQDE x$(QA)-0) AND CODE xHOA)<R)+( 16*(CQ0£ 
x$(OA)-P) AND CODE x$(QA)>Q): LET 02=(CODE x$(OB)-Q AND COD 
£ x$(OBXR)+(CQDE x$(OB)-P AND CODE x$(QB))Q): LET A=D1+D2: 
• RETURN 

9878 DATA 84,104,105,115,32,100,97,116,97,32,116,97,98,108,1 

01,32,105,115,32,115,104,111,114,116,46,1000 

9880 DATA "54', '68V69', '73', '20', '60', '73', '67', '20', '69', 

, 73V20 , ,"69','6E',"2QV60','65','6DV6FV72',"79",'2E', 

"STOP* 

9882 ON ERR RESET i CLS ! PRINT '"The tessage is in teiory. 

The starting adr "Sj". ""Use the MENU to PEEK it out 
."•'<ENTER>': PAUSE VAL '4e4': CLS : 60 TO VAL '9804' 
9884 LET oo=0: LET xy*oo: LET oa*l! LET ob*2: LET oc*3: LET 
od=4: LET oe»5: LET of*6: LET 06=7: LET QH=8: LET 01*9: LET 
OMO: LET OK«li! LET QL=12: LET QH=13: LET 0N=14: LET 0P*15 
: LET 0Q=16: LET 0R»17: LET QS=18: LET 0M9: LET QU-20: LET 
0=48: LET P«55J LET Q=64: LET R=65: LET A'OA: DIM U(24): FQ 
R N=i TO 24: LET U(N)*A: LET A-A+A: NEXT N: RETURN 
9886 INPUT "Select Choice: 

<1> Add <2> Subtract <3> Multiply 
<4> Divide <5> Hoie Menu "|gi: IF gKoa OR gi>oe TH 
EN 60 TO VAL '9886' 
9888 IF gi*oe THEN 60 TO VAL '9804* 
9890 CLS : INPUT "First Nuiber HEX or DEC/BIN? <1> Hex 
<2> Dec/Bin'iHl: IF »Koa OR il>ob THEN 60 TO VAL "9890' 
9892 INPUT 'Second Nunber HEX or Oec/Bin? <1> HEX <2> Dec 
/Bin '!»2: IF *2<oa OR i2>ob THEN 60 TO VAL '9892' 
9894 IF il=oa THEN INPUT 'INPUT First Nuiber (HEX) ')y$: IF 
y*=" THEN 60 TO VAL '9894' 

9896 IF ii'ob THEN INPUT 'INPUT First Nuiber (Dec/Bin) "J 
y$I LET nl'VAL y$: IF y**" THEN 60 TO VAL '9896' 
9898 IF s2=oa THEN INPUT 'INPUT Second Nuiber (HEX): 'Jz$: I 
F z$=" THEN 60 TO VAL '9898' 

9900 IF i2=ob THEN INPUT 'INPUT Second Nuiber (Oec/Bin): '! 
z$: LET n2*VAL iM IF z$»" THEN 60 TO VAL '9900' 
9902 DIM x$(of): IF il«oa THEN LET x$=(y$ ANO LEN y$«of)+C0 
•+y$ AND LEN y$=oe)+('00»+y* ANO LEN y$»od)+C000"+y$ AND LE 
N y$=oc)+('0000»+y$ AND LEN y$«obW"00000'+yf ANO LEN y$*oa 
HCOOOOOO' ANO y$*"): 60 SUB VAL '9818': LET nl'DEC 
9904 IF M2=oa THEN LET x$*(z$ ANO LEN z$*of )+('0'*z$ AND LEN 
z$ a oe)+('00'+z$ AND LEN z$»od)+('000'+z$ AND LEN z$-oc)+CO 
000'+z$ AND LEN z$»ob)+('00000'+zi AND LEN z$-oa)+COOOOOO' 
ANO z$«"): 60 SUB VAL '9818': LET N2-DEC 
9906 IF 61=oa THEN LET DEC=N1+N2: 60 SUB VAL '9824': PRINT y 
UCh' AND Mi-oa)+('d' AND Ml»ob)}'+"!z$|('h* AND M2-oa)*("d 
' AND H2=ob)J»»")DEC|'d'J' and '} 

9908 IF 6l=oa THEN FOR N*oa TO of: IF H$(N)>'0' THEN FOR N=N 
TO of: PRINT M$(N)j: NEXT NI PRINT 'h"! 60 TO VAL '9912' 
9910 IF 6i=oa THEN NEXT N: PRINT 'Oh" 
9912 IF 61»ob THEN LET DEC-NI-N2: 60 SUB VAL '9824': PRINT y 
$}('h' AND Ml=oa)+('d' ANO Hi=ob)J"-»!z$}('h" AND H2=oa)+("d 
» ANO M2=ob)J"*'jDECj'd and'l 

9914 IF 61=ob THEN FOR N=l TO of: IF x$(N)>"0" THEN FOR N-N 
TO of: PRINT x$(N)i: NEXT N: PRINT 'h": 60 TO VAL '9918' 



9916MF Gi-ob THEN NEXT N: PRINT 'Oh" 
9918 IF 61-oc THEN LET DEC°NUN2: 60 SUB VAL '9824": PRINT y 
|j('h' AND Ml=oa)+('d' AND Ml»ob)|' I ')z$i('h' AND H2*oaH( 
"d" AND ri2=ob)j" s ";DEC|'dV and "I 

9920 IF 61=oc THEN FOR N=oa TO of: IF x$(N)>'0' THEN FOR N=N 
TO of: PRINT x$(N)j: NEXT N: PRINT 'h": 60 TO VAL "9924" 
9922 IF 61=oc THEN NEXT N: PRINT »0h" 
9924 IF 61=od THEN LET DEC=Nl/N2: 60 SUB VAL '9824': PRINT y 
$jCh" AND Mt=oa)+('d" ANO Hl=ob)|* / 'IzJK'h* AND M2*oa)+( 
"d" AND M2=ob)j"=';DEC}'d and '} 

9926 IF 61=od THEN FOR N=oa TO of: IF x$(n))'0' THEN FOR N=N 
TO of: PRINT x$(N)j: NEXT N: PRINT 'h": 60 TO VAL '9930* 
9928 IF 61=od THEN NEXT N: PRINT 'Oh" 
9930 60 SUB 9946: 60 TO VAL '9886' 
9932 60 TO VAL "9886" 

9934 CLS : PRINT '1111 1111 1111 1111 1111 HlfJAT 00,20} 0 
VER 1J FLASH IS' "I OVER 0Q| FLASH GQ'-'Froa Right T 

0 Left, the Binary bit data is given for a 24 bit BIN grou, 
p. Left coluan is bits 1-24 with bit content, 6RQUP Cont 
ent and progressive possibleTotal content.'": LET a«U LET 
b=0: LET C=00 

9935 FOR y=l TO 24 STEP 4: 60 SUB VAL '9940': PRINT TAB 10lb 

": NEXT y 

9938 PRINT ' 1 'BIN-HEX-DECIMAL DI6IT AND 6RQUP ANALYSIS" 'TAB 
2}"F"}TA8 7i'F"!TAB 12i'F'|TAB 17}'F'{TAB 22)'F')TAB 27J'F' 

""lilt 1111 1111 1111 1111 "I FLASH OAl'llll'J FLASH 00'"* 

1 " * TAB 255 "**_2'" I 

_4 6P"TAB 25, r "J I" TAB 205 " JTAB 28J'F^ 

=15"TA8 20i FLASH OAl'llll'J FLASH 00" * 

*"* 16- ' TAB 20|"* A 32"TAB 20}"\64 6P-2" 

• * 128 F*240"TAB I5j FLASH OAj'llii'j FLASH 00' 

_256"TAB 15|"*'J12"TAB 15|"\1024 6R0UP 

-3* 'TAB 15!" 2048 F*3840' 

9939 PRINT TAB 10| FLASH OAl'lill'l FLASH 00' 

4,096"TA8 10j"" 8,192"TAB 10!'" 16,384 6R0UP-4"TA 
B 10)" 32,768 ~F»6i,440"TAB 5| FLASH OAj'illl'} FLASH 
GO"* — **** 65,535"TAB 5|"" 13i,072"TAB 5J"\262,144 
6R0UP-S"TA8 5J" 524,288 F=983,040" FLASH 0 

Al'lill'l FLASH OO'- — _1.048.576 .2,097,152 6R0 
UP-6""* 4,194,304 F s 15,728,640""_8,388,608" "TQT 

AL CONTENT-15, 777,215* 16HBTS"" FLASH oal'ENTER'J FLASH oo| 
' When Ready'! PAUSE VAL '4e4': CLS : 60 TO VAL '9804' 

9940 LET C»QO: FOR n B QA TO OD: PRINT a! LET b=b+a: LET C«C+A 
: LET a=at2: NEXT n: PRINT FLASH OA|C| FLASH 001 

9942 RETURN 

9944 FOR n=oa TO od: PRINT a: LET b«b+a: LET a=b*ob: NEXT n: 
RETURN 

9946 LET H=DEC: DIM T(24): FOR N=24 TO 1 STEP -1: LET T(N)*< 

1 AND H>=U(N))+(0 AND H<U(N)): IF T(N)=1 THEN LET M=M-U(N) 
9948 NEXT N 

9950 LET T*=": FOR N=24 TO 1 STEP -l! IF T(N)*1 THEN FOR Y= 
1 TO N: LET T$»T$iSTR$ T(Y): NEXT Y: 60 TO 9953 

9952 NEXT N 

9953 LET M$=": FOR N*LEN T$ TO 1 STEP -i: LET Hf=M$+T$(N): 
NEXT N 

9954 PRINT ,M, BIN='?M$: RETURN 

_ 
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Qtj.±cd1c and Ee*.sy Rout ines 



THE QUICKIE LIST: Sometimes the shorties are the most 
useful. This one was sent by Mr. Robert Hartung. Did you 
digest his articles in CTM? If not you should back up four 
issues of CTM and dig his series, (quote) To make a hard 
copy of a disk CAT for, labels, or an index, or a copying a 
screen; <0PEN #2,"P': LET /p=o> When CAT/ is entered the 
disk directory goes to the printer instead of the screen. 
Or, any PRINT statement will go to the printer. When 
finished, <CLQSE42> to terminate. (Thanks Bob!) 

YES - NO INKEY$ for use after a prompt requiring YES or 
NO: 6Q SUB 200 will cause line 200 to loop itself until a 
Y, y, N, or n key is touched. YES assigns z=l or NO assigns 
z=2. <200 PAUSE VAL *4e4 B : LET T$= INKEY$ I IF T$0"y" AND 
T$0'y" AND T$OV AND T$OT THEN 60 TO 200) <202 LET 
z=(t and T$="y' OR t$='Y")+(2 AND T$=V OR T$="N": RETURN) 

INKEY$ Prompt for any keyl Any key touched will result 
in its character being input to T$. Numbered characters 
will be represented by variable Z> Ideal for use with <6Q 
SUB) after menu that has several selection options. (200 
PAUSE VAL Men LET T$=INKEY$: LET z=C0DE TI-48! RETURN). 

KEY LOCK after the above INKEY$ routine is used: 
Suppose that you have a MENU with 9 selection choices 1-9. 
<6Q SUB 200 will wait until a key is touched, then assign 
*Z s key struck*. BUT, we want to lock out all except 1-9. 
<90 menu print statements! 60 UB 200) <102 If Z<1 OR z>9 
THEN 60 TO 90). Better still, lets use one line to lock the 
keys, PLUS- take action on ALL 9 menu selections. <102 60 
TO (z<l OR z>9)*90+ (z=i)*150+ (z=2)*200+ (z=3)*300+ 
(z=4)*400+ (z=5)*500+(z=6)*600+ (z=7)*700+ (z=8)*800+ 
(z=9)*900>. In this case there are 10 IF THEN logicals in 
line 102 that sends the program to the line numbers 
following the condition enclosed in brackets. (BOOLEAN 
Logicals works just fine, and conserves lots of memory. We 
will publish an article soon about Mr. Boolean's 19th 
Century works and how the logic applies to BASIC Computer 
programming.) 

THE SD0S PRINTER DRIVER: <LET /P=Q> enables the built 
in Centronics printer driver. LPRINT commands then sends 
character streams through the Oliger or Aerco printer 
interface to a Centronics printer. There are two TS-2068 
memory addresses that one needs to know. The LET /P=0 safe 
disk command "zeroes address 23324, which is used as a 
switch to command a line feed. If PEEK 23324=0 then NO line 
feed is directed by the printer driver. So, if your printer 
requires a line feed, you must POKE 23324,10. Another 
important address is 23323 which contains "Maximum Line 
Length'. LET/P=Q places 255 as the content of Adr 23323. 
For most printers this is O.K., even if the printer's 
maximum line is shorter than 255 characters. If you want to 
limit the printed line to any given length, say 60 
characters, then POKE 23323,60. Then you must take TAB into 
consideration. For example: <LPRINT TAB 20|A$) would be 
O.K. if the length (LEN) of a$ were 40 characters. An 
additional character (41) would force a line feed and wrap 
print to the next line. A problem would occur if printing 



lines of a character array where the empty ends of the array 
lines are spaces. LLISTS in columns of 60 lines are easily 
printed by <LET/P=0: POKE 23323,60: LLIST). If you want 
double spaced LLIST lines, add <PQKE 23324,10) before the 
LLIST command. 

SOFTWARE CHECK OF PRINTER STATUS: This may come as a 
"EUREKA! revelation" to some who are haying trouble 
constructing program lines to COMMAND A PRINTER to change 
formats or print styles. When your printer is sitting there 
with lights on, it is in a READY STATUS. To be sure you can 
Type <PRINT IN 127 ENTER). If the printer is READY, a "237" 
will appear on screen. When constructing program lines to 
COMMAND the printer to do such things as changing a print 
style or set EXPANDED characters, the programming is <0UT 
127, number) then <QUT 127, another number) until all required 
"change commands" are sent. The problem is, a printer is 
slow to execute the commands, while the computer is fast in 
sending the commands. Most likely, the computer will finish 
sending three or more commands before the printer has 
executed the first one. As a result, the printer may not 
SEE some commands. A program loop is needed to make the 
software WAIT until the printer is in a READY status. Here 
it is: <100 IF IN 127=253 THEN 60 TO 100): RETURN). When 
the printer is NOT READY, the command <PRINT IN 127 ENTER) 
returns the number 253 (BUSY). So, a <60 SUB 100) placed 
between each printer command will loop at line 100 until the 
printer is READY, and then RETURN for the next command. The 
COMMAND LINE would look like this! <50 60 SUB 100: OUT 
127,27: 60 SUB 100: OUT 127,60). A printer BUSY status 
would hold up each command at line 100 until the printer 
status changes to READY (237). 

PSEUDO HEX VARS TABLE with LETTERHEAD DATA 

This vars file can be stored in disk for call up to 
your programs. Numbers 0 through 20 are represented by 
"double 0 yars" as, oo=0, ob=2, oc=3, through ou=20. When 
used in a program, each number 0-9 usage will conserve 5 
bytes of memory. Each usage of the vars for numbers 10-20 
conserves 6 bytes. N$ array is set up to service a 
LETTERHEAD, SI6N OFF, and SALUTATION BLOCK needs for letter 
correspondance. See the listing for designations. 

5 REM ttt Type <CLEAR) then <6Q SUB 10) then <SAVE/"pseu 
"VADNote the letter support data forN$ array. Array lines 
1-5 are reserved for Salutation block; l=Company name. 2=D 
ept. 3=Streetaddress. 4=City State Zip. 5= correspondants 
first name. 10=input date. ll=spare line. 

6 REM M*Use <L0AD/"pseu"VAL)in a program line to initial 
ize the variable table into a activeprogram. 

10 LET oo=0: LET oa=l: LET ob=2: LET oc=3: LET od=4: LET o 
e=5: LET of=6: LET og=7: LET oh=8: LET oi=9: LET oj=10: LET 
ok=ll: LET ol=12: LET om=13: LET on=14: LET op=15: LET oq=16 
: LET or=17: LET os=18: LET ot=19: LET ou=20: DIM n$(13,31): 
LET n$(6)="letterhead first line": LET n$(7)="second line": 
LET n$(8)="third line"; LET n${9)="fourth line": LET n$(ll) 
"■Sincerely": LET n$(13)="Signature line": RETURN 
3 
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<LET /0=0>: The range of disk selection is 0-3 to select one of up to four 
drives in a systea, where disk number zero is the first disk and disk number three 
is the fourth disk. Disk drives are connected via two cables, the 36 conductor 
data/control cable, and the 3 conductor power cable. When a <L£T /D=> coaaand is 
sent, the SDQS sends "switching signals" to the "drive number selected by the LET/D" 
command". The signal "turns on the drive power". The disk door handle (aost disk 
drives) is also a switch. When the door handle is open, the disk drive cannot be 
selected. When the door is closed, the drive may be selected. The power supply is 
passive, in that power is supplied to all disks, ready to be switched by SDQS. 

The cables to the disk drives are very simple. Connections are parallel. Each 
disk drive and the SDOS controller uses the same 35 pin connector. These connectors 
are simply "pressed on" to the 36 conductor cable and spaced so that the connectors 
will reach the plugs of the disk drives. For more than one disk drive, the power is 
connected via "Y splitter cables". The parts to fabricate these cables are widely 
available and quite inexpensive. 

Most disk drive power supplys have sufficient power to operate four drives, If 
erratic operation is experienced while operating a multi drive system, the door 
latches of all drives except the one in use nay be opened to relieve the power 
drain. Power supplies should be enclosed in a metal cabinet for shielding. The 
signals carried within the 36 conductor cable can be distorted by radiation of EMF 
from a un-shielded power supply. Also, diskettes placed within range of such fields 
can be made un-readable. 

Although we are limited to four "addressable" disk drives in a SDQS system, 
more drives may be operated. At right is a "speculated" system of eight drives of 
different size and track formats. Such a systea would allow the use of 3", 5 1/4" 
and 8" drives in a systea, and two of each type drive. When more than four drives 
are connected, all except the one in use should have the drive doors open so that 
the parallel drive is dead. Parallel drives are two or more that have the internal 
drive switches set to the same "drive number". One other consideration is the 
"terminating resistor" should be in the active chain. I hope that someone will 
comment upon this, as 1 have operate my four drive unit with the "door open" on the 
drive that has the resistor, and no ill effects have been noted. 

<LET /S=l> would be needed after a drive has been selected IF the disk is a 
single side disk (it has only one read/write head). The SDQS systea will set itself 
for double side drive if there is no LET/S=1 command. DS/DD diskettes may be used 
for single side formats, but not vice versa. A diskette that is formatted with 
LET/S=1 can be written to or read from by a DS/DD drive, but a single side drive 
cannot read a disk formatted with LET/S=2. 

<LET/T=40> establishes the foraat for 40 tracks. Normally a 40 track diskette 
will format to 41 tracks and give reliable read and write results. This will give 
400K of disk free on a 40 track or 805K on a 80 track diskette. A diskette will 
accept LET/T=44, and will indicate a good format, however I have found that the 
capacity is really only 400K, and disk read/write errors occur if there is an 
attempt to store more than 400K. (LET/T=82 and 805K for 80 track drive). 

I have had almost a year of trouble free disk operation with two 5 1/4" OS/Quad 
DENSITY drives purchased from BQ Micro (price $89.00 each). One of the original 
drives would not read/write upon receipt and was replaced promptly and without 
question. (I thought some would like to know this.) SOU will discuss more about 
the SDOS BASIC commands in each issue. 
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About Disk Drives 



There are lany types of disk drives available. 
Commodore introduced a 3 1/2 inch drive with their 
Amiga computer. Now IBM has a new 3 inch drive. We 
Safe Disk users have a system that will work with 
alaost anything that can be hooked up to a 'Shughert 
Standard Parallel I/O" Disk Drive. Safe Disk uses a 
standard 35 pin data cable. Thats great, but we 
need to think about soae things before dashing off 
and purchasing a disk drive. Of priaary 
consideration is whether the drive that we purchase 
will be supported by aost of our software suppliers. 
Another thought is the cost of the diskettes for the 
drive that we purchase. Still more} Does the disk 
format enough space to support "disk dependant 
software". Lets explore soae of these factors. 

Software Suppliers aost generally supply their 
software on 5 1/4 inch, DS/OD, diskettes. Not aany 
suppliers of TS-2G68 software are willing to 
purchase another disk drive to support a few owners 
of 3 inch, 3 1/2 inch, 8 inch, drives. To the Safe 
Disk user this aeans that at least one 5 1/4 inch 
DS/DO drive will be needed in order to take 
advantage of available disk software. Fortunately, 
Safe Disk will easily accoaaodate "mixed' drives. 
That is to say, one can hook together a 3 inch 
(Portugual) disk drive with a standard 5 1/4 inch 
DS/DD drive, and work f rot one to the other. In 
such case, < LET /d=0: LET/s=2: LET /t-40S SAVE 
/"naae* > would save a aeaory program to a "double 
side 40 track' (Double or Quad Density) drive in 
drive 0. 

< LET /d=U LET s=l: LET t=40: SAVE /"naae" > 
will save a prograa to diskette in drive 1 when 
drive 1 is a "single side drive". In either case, 
the "size" of the drive is unimportant. These two 
examples are typical of a "drive mix" of a 5 1/4 
inch DS/OD in drive Zero, and a "Portugual 3 inch" 
drive in drive 1. All other Safe Disk 
LGAD/SAVE/FGRMAT commands work as well for such a 
drive aix. The beauty of Safe Disk is that it 
allows "prograa commands" to switch operation froi 
one type of drive to another. Host disk operating 
systems are fixed in the interface firmware to 
operate with only one type of drive. How does one 
"hook up" two drives that are different? Thats 
simple too. Another 36 pin connector is simply 
"pressed on" to the existing data cable for hook-up 
to the back of the second drive. These press-on 
connectors are widely available. Also, a "Y 



splitter" power cable is attached to the existing 
drive power cable that connects to the disk drive. 
So, getting into business with a second disk drive 
"of another size" is very simple. What about the 
cost? Well, one firm "B6 Micro" sells TEAC DS/DD, 
40 Track drives for $69.00. The same firm sells 5 
1/4' 80 Track, Quad Density drives for $89.00 each. 
The "Y Splitter" and Data Connector can be purchased 
for about $3.00. 

For about $75.00, one can add a standard 40 or 
80 track drive to a Portugual Drive, have the best 
of two excellent systems, and load software supplied 
by our vendors. Ny drive configuration is: Two 
DS/DD, 40 track, plus Two DS, Quad Density, 80 track 
drives. The 40 track drives format to 395K 
capacity, and the 80 track drives format to 79SK 
each, for a total disk system capacity of 2370K. 
The nice thing about using this mix of 5 1/2" drives 
is that the diskettes are interchangable. Programs 
on a 40 track diskette will LOAD in the 80 track 
drives. Also, 80 track diskettes will FORMAT to 40 
tracks and become usable in the 40 track drives. 
Another good point is the cost of the diskettes, 
about 59 cents each from mail order sources. 

Disk Dependant Software: The concept is to 
eliminate all menus and screens from the mother 
prograa. Put them in disk for quick boot in as 
needed. This saves about 1/3 of a program's length 
an allows many more functions to be added. Also, 
data files are dumped to disk before computer memory 
becomes full, and variable files are saved to disk 
for use by the main program. Next, with the new 
MERGE capability, entire segments of a program can 
be saved as "program cells" in diskette, to be 
MER6ED to a software prograa as needed. The concept 
allows the software to have a "program length" that 
far exceeds the memory capacity of the computer's 
RAH. This requires lotsa disk capacity, more than a 
single side disk can hold. This is another reason 
that at least one disk in a system should be a 
double side disk. The single side disk just does 
not format enough disk capacity for such prograas. 

So, whether we like it or not, the "Standard" 
for aost small computer systems is the 5 1/4 inch 
DS/DD Drive. The 5 1/4 inch diskettes are the least 
expensive. The drives themslves are less expensve. 
The DS/OD drive formats enough continuous disk 
capacity to accoamodate extensive "disk dependant" 
software. And, all software vendors support the 5 
1/4 inch DS/DD drives. 
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By: Bill Jones 



SDOS MAIL MERGE 
Complete This Issue 
A Major Software for SDOS 

The feature prograa for the October 88 issue is "SDOS 
MAIL MER6E", a major software that was designed specifically 
for this issue. There are several reasons why this software 
is special, and why almost all will surely want it. First, 
it is the ONLY "printing software" that will work AS IS with 
ANY Centronics printer, plus the TS-2040 printer. There is 
absolutely no monkeying around changing line numbers 
required to sake it print with "brand y" printer. Second, 
it has many more features than just a Hailing List software. 
It is a "Dual Data Base" and printing software that can be 
used for many purposes. Third, the data products are simple 
Character arrays that can easily be transferred from 
diskette to other operating softwares, using the LOAD 
/VDATA x$<) command. 

The purpose for designing SDOS for SAFE DISK UP-DATE 
was two fold. 1. A good software of this kind was not 
available. 2. A vehicle was needed for illustrating the 
versatility of SDOS. I'll tell you a little tale on myself 
to make a point. A year AFTER buying a new Edsel, I 
discovered that the seat would tilt forward, as well as 
adjusting fore and aft. ye have that nice SDOS system which 
has many many capabilities to discover. Safe Disk Vp-Date 
will try to reduce the discovery time. This software can 
unveil many tricks of SDOS programming. AND, it will 
definitely fill a gap in our TS-2G68 software needs. 

FUNCTIONS 

There are two main data bases, both flexible to the 
user, The "main" data base is for listings of all types, 
"Hailing List" being the common usage. A "field" consists 
of 7 lines of data. The data lines are organized by "field 
numbers" as follows: i. Company Name. 2. Department. 3. 
Street Address. 4. City, State, Zip. 5. First name. 6. 
Telephone Nbr. 7. Other data. The operator is prompted to 
"Input Number of Fields". This allows from one to about 120 
fields to be organized. Then prompts ask for inputs by line 
number. A listing can be discontinued at any time. Menu 
choice allows "adding to" the list at any field number. So, 
if one inputs 20 names and quits, the next entry can be 
started at "field 21" by prompt. Henu choices are.* 1. 
Start New. 2. Correct. 3. ADD TO. 4. View. 5. 
Print/Labels/Envelopes. 6. SAVE. 7. DELETE Data. 8. Sort 
File. 9. LOAD File from Disk. 

Ancillary functions are: 1. Centered Captions. 2. Page! 
Management. 4. Directed Line Space. 5. Directed Page End. 6. 
Print a Centered Letterhead. 7. Print a Sign Off. 8. Single; 
or Double line spacing. 3. Change Line Length. 10. Set Up a 
Outline. 11. Print Outline. The "Outline Functions" 
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Program Listing 

400 INPUT "Number of Hailing list Nates? H ;h: LET k=h: LET b$=" r 
402 INPUT "Sort by: <1> First name <2> Las 

t name"|z 

404 IF z=oa THEN 60 SUB VAL "1010": SO TO VAL "500" 
406 IF z=ob THEN 60 SUB VAL "640": 60 SUB VAL "1010": 60 SU 
B VAL "670" 
500 60 TO VAL "2000" 

640 CLS : PRINT FLASH oajAT oj,oa!"La5t Name Reverse- 40 Se 
conds"5AT ok,oa|"Line 640": FOR n=oa TQ h: IF o$(n,oa)(oa TO 
od)=" " THEN NEXT n: RETURN 
642 LET b$=o$(n,oa) 

646 IF bKLEN b$)=" " THEN LET b$=b$< TQ LEN b$-oa)! 60 TQ 
VAL "646' 

650 FOR 1=LEN b* TQ oa STEP -oa: IF b$(oa TQ od)=" " THE 
N NEXT n 

652 IF n>k THEN RETURN 

654 IF b$(l)=" " THEN LET o$(n,oa)=b$(l+oa TQ )+" "+o$(n,oa 
)( TQ 1): NEXT n 
656 NEXT 1 
658 NEXT n 
660 RETURN 

670 CLS : PRINT AT oj,oa!"Replace First name- 40 Seconds";A 
T ok.oai'Line 670": LET b$="" 

672 FOR n=oa TQ k! IF o$(n,oa)(oa TO od)=" " THEN NEXT n 
: RETURN 

674 IF n>k THEN 60 TO y 
676 LET b$=o$(n,oa) 

682 FOR l*oa TQ LEN b$: IF b$(l) s " " THEN LET b$ s o$(n,oa)(l 
+oa TO ): 60 TO VAL "686" 
684 NEXT 1 

686 IF b$(LEN b$>=" " THEN LET b$=b*( TQ LEN b$-oa): 60 TO 
VAL "686" 

688 LET o$(n,oa)=b$+" "+o$(n,oa)( TQ 1) 
690 NEXT n 
692 RETURN 

1010 CLS I PRINT AT oj,oh? FLASH oaJ"Sorting- 1 Minute*? AT o 

k,oh!"Line 1010": DIM v$(of,31); LET n=h 

1020 LET I*N-oa 

1030 FOR J=oa TO I 

1040 LET K=J+oa 

1050 FOR L=N TO K STEP -oa 

1052 IF o*(l,oa)(oa TO od)«" " THEN 60 TO VAL "1100" 
1060 IF o$(L,oa)>o$(J,oa) THEN 60 TO VAL "1100" 
1070 IF o$(l,oa)(oa TQ od)<>" " THEN LET b$=o$(L,oa): LET 
v$(oa)=o$(l,ob): LET v*(ob)=o$(l,oc): LET v$(oc) s o$(l,od): 
LET v$(od)=o$(l,oe): LET v$<oe) s o${l,of ): LET v$(of )=o$(l,og 
) 

1080 IF o$(l,oa)(oa TQ od)O w ' THEN LET o$(L,oa)=o$(J,oa 
): LET o$(i,ob)=o*(j,ob): LET o$U,oc) s o$(j,oc); LET o$(l,od 
)=o*(j,od): LET o$(l,oe)=o$(j,oe): LET o$(l,of ) s o$( j,of ): LE 
T o$(l,og)=o$(j,og) 

1090 LET o$(J,oa)=B$: LET o$(j ,ob)=v${oa): LET o$( j,oc)=v$(o 

b): LET o$(j,od)=v$(oc): LET o$( i ,oe)=v$(od): LET o$(j,of)=v 

$(oe): LET o$(j,og)*Y*{of) 

1100 NEXT L 

1110 NEXT J 

1120 CLS : FLASH oo 

1130 RETURN 

2000 CLS : PRINT AT 2,6! INK 5|"MAIL"lTAB 19; FLASH l!("Yes u 
AND LEN G$(l,l)>l)+CNo " AND LEN 01(1,1X2)! FLASH 05" ML 
DATA"' TAB 9}"MENU"5TAB 19!"FREE="! FREE !" ""TAB 6! INK 6 
!"<!> Start New" 'TAB 6! INK 5!"<2> Add to List"' TAB 6! INK 6 



involve a second flexible data base to use fop producing a 
outline with tajor and minor topics. Printing of the 
outline is in the outline format with selectable TAB for 
lajor topics. Minor topics are then indented five spaces. 

OPERATION 

Other uses of the mailing list data base are: Invoices, 
Inventory lists, Telephone lists, Magazine article indexes, 
or any data groups that one can set up in 7 line fields. 
The capacity of the mail/inventory data base is about 120 
fields, as programed. The fields nay be dimensioned larger 
or smaller by simple line number adjustment (line nbr 2005). 

Simplicity presonified! You just cannot get into 
trouble, and the software is crash proof. A mistake in 
operation will result in a "report code" stop. The cure is 
<60 TO FM> in every case. <60 TO FM> presents the Function 
Menu, and all program parameters are preserved. There is 
only one possible exception to this easy fix. If you have 
established a "outline data base* and then you select "Start 
New" at the Mail List Menu, it is possible to "over 
dimension" the mailing list data base by input of too large 
a number for "Number of Fields". w"hen a command is given to 
DIMENSION a character array, and insufficient memory exists, 
the vars file is corrupted which results in a CRASH. Now 
this little blurb on operation is indeed skimpy, but what 
can one say when words are not necessary? The Menus provide 
ample guidance with literal selection choices, thus no need 
to study instructions. 

The Mail/Inventory List Printer! A prompt asks for 
"Input Number of Fields to print". If printing labels or 
envelopes, "4" would be the correct input. Then "TAB, and 
Spaces between' are prompted. Inputs allow the printing to 
strike the labels or envelopes uniformly. The software 
differentiates between a three or four line address and 
spaces accordingly. Another prompt asks, "Twin Labels?". 
If Yes, then your own return address label prints between 
each "out label". When you want to print inventory or other 
data set-ups, an input of 7 will result in all 7 lines 
printing. Any number of fields 1-7 may be elected to print 
out. 

Menu electives set up automatic SAVE or LOAD of the 
data bases OR a program that contains data. A prompt "Input 
File Number" makes each LOAD or SAVE discrete. LOAD 
selections result in the disk catalog presented on screen 
with a prompt "Input File Name", The Load is automatic and 
the Function Menu appears. At that time all software 
functions are available. 

PRQ6RAHHIN6 

S00S Mail Merge utilizes the <LET /P=Q> or <LET /P=T) 
functions of SDQS to print with any Centronics printer or 
the TS-2040. Inputs allow the configuration of desired line 
length for any pre-set print style. The built in SDQS 
printer driver is used for printing. The software itself 
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Program Listing (cent.) 
!"<3> View List" "TAB 6;"<4> Correct List" 'TAB 6} INK 5l"<S> 
Print Lab/Env/Inv"'TAB 6; INK 6S"<6> Disk SAVE" "TAB 6i"<7> 
Delete Hail Data" 'TAB 6; INK 5|"<8> Sort File"'TAB 6; INK 6 
}"<"; FLASH i|"9"| FLASH 0|"> Function Menu" "TAB 6| INK 55" 
<0> LOAD Hail File" "TAB 65"Page="5pgj" ">TAB 20»'"Line=";nn 

2002 PRINT AT ot.okjpg!" "5 AT ot,VAL "25"5nn|" "|AT ob,ot| F 
LASH oajCNQ " AND LEN o$(oa,oa)<ob)+("Yes" AND LEN oKoa.oa 
)>oa)| FLASH oo|AT oc.VAL "24"! FREE 

2003 60 SUB SQ: 60 SUB III 60 TO (Z<00 OR z>QI)*VAL "2Q00"+( 
z=QQ)*VAL "3020"+(Z=QA)*VAL "2004"+(z>0A AND Z<QF)*VAL "2007 
"+<Z=QF)*VAL "2600"+(Z=Q6)*VAL "2058"+(Z=QH)*VAL "400"+(Z=GI 
)*FH 

2004 CLS : PRINT AT QJ,0Fj FLASH 0A!"Conf irm, START NEW*j FL 
ASH 00' 'TAB GFi"<y> Yes -or- <n> No"; 60 SUB SQ: 60 SUB IKi 
IF Z=QA THEN INPUT "Input Nbr of Names"i»x: IF mx*VAL "217") 
VAL "27000" THEN 60 TO VAL "2004' 

2005 DIM o$(mx,7,31): DIM Q$(ax,7,31): LET IN=0A: LET ms=0A: 
CLS : 60 TO VAL "2009" 

2006 60 TO VAL "2000" 

2007 IF Z)0A AND Z<QF THEN INPUT "Ent Strt Nbr "IMS: CLS 1 I 
NPUT "Ent end Nbr "|MX: CLS 

2008 IF Z*QE THEN CLS : INPUT "Twin Labels? <y> yes or <n) N 
o "it*: INPUT "Ent sps bet: "iSX: INPUT "Ent Tab "1TB: CLS 

; INPUT "Nbr of Fields (1-7) 4 for labels"!x: PRINT AT QU,QB 
;"0o you want Page Control?": INPUT "<1> yes or <2> No "|K: 
IF k=oa THEN PRINT AT 0U,00|"Ent ""P6"" for same page, or a 
nbrto change. ": INPUT P6: PRINT AT GU,QQ;"Ent *"NN"" for s 
aie line count, or nbr to re-set line count. ": INPUT NN 

2009 FOR G=HS TO MX 

2010 IF Z<0C THEN 60 SUB VAL "2022" 

2011 IF Z*GD THEN 60 SUB VAL "2110" 

2012 IF Z=QC THEN 60 SUB VAL "2034" 
2014 IF Z*GE THEN 60 SUB VAL "2040" 
2016 IF 0>=MX THEN 60 TO VAL "2000" 
2018 NEXT 0 

2022 CLS : PRINT AT 0F,0F|"M1 No. "|0 

2024 CLS : PRINT AT og,oo|o;AT 0J,00|"Input "?("Co Name " AN 
0 IN=0A)+("Dept " AND IN=QB)+("St adr " AND IN=QC)+("ct, 
St,Zp" AND IN=QD)+("lst Name" AND IN=0E)+("Tel Nbr " AND IN 8 
QF)+("spare dta" AND in=og)|" or zz to quit.": INPUT T$: IF 

T$="zz" THEN LET IN=0A: LET 0=MX: CLS : RETURN 

2025 LET 0$(0,IN)=T$ 

2026 IF IN=06 THEN CLS ! 60 TO VAL "2030' 
2028 LET IN=IN+0A: 60 TO VAL "2024" 

2030 PRINT AT QH,QQ!Q$(G,0A) '0$(0,0B) 'Q$(0,QO 'Q$(0,0D) '0$(G 
( 0E)'0$(0,QF) , 0$(o,og)""0K? <Y> Yes, or <N> No": 60 SUB IK 
: IF Z=QB THEN LET IN=0A: 60 TO VAL "2024" 
2032 CLS : LET IN=0A: RETURN 

2034 IF 0$(0,0A)(QA TO 0B)="zz" THEN 60 TQ ml 

2035 PRINT AT 0E,oo5"Ml No. ";o"0$(Q,0A) *Q$(0,0B) 'Q$(Q,0O ' 
Q$(0,0D) , Q$(0,QE) , Q$(0,0F) 

2036 PRINT Q$(0,0g) 

2037 PRINT '-Key ENT for Next": PAUSE VAL "4e4": CLS : RETUR 

2038 IF LEN QKQ.QAXQE THEN RETURN 

2040 FOR y=oa TQ x: IF y=oa AND o$(o,y)< TQ ob)=" " THEN RE 
TURN 

2041 LPRINT TAB tb;o*(o,y): LET nn=nn+oa: NEXT y: 60 SUB VAL 
"2046" 

2042 IF t$="y" OR t$ s "Y" THEN FOR y=oa TO od: LPRINT TAB tb! 
n$(y): LET nn=nn+oa: NEXT y: 60 SUB VAL "2046" 

2044 RETURN 

Cd n~f~ — 



does not coaaand the printer to change print styles. Style 
changes must be set manually with the printer's dip 
switches, or by direct commands entered in the "K aode". If 
the user desires software controlled printer style changes, 
it is practical to build a few aore lines to do that. These 
custos printer control lines would be operated in the K sode 
by either <6Q TO line) or <6Q SUB line). 

"Now you see it, then you dont*. Saving aeaory is a 
necessity in order to create coaprehensive software for the 
TS-2068. 38K of FREE poses limitations as to the nuaber of 
functions that can be stuffed into a prograa. The Safe Disk 
Operating Systea (SDOS) provides soae interesting aeaory 
conservation capabilities, we conserve a treaendous aaount 
of FREE Raa by first creating the needed MENUS with line 
prograaaing, then SAVING the Screens to diskette, and then 
DELETING the prograa lines. A 700 byte Menu is then 
presented when needed by this siaple 10 byte coaaand in a 
prograa line: <LQAD /"fa" SCREEN!). Five such Menus are 
"canned in diskete" for a saving of about 3K of aeaory 
usage. 

Other aeaory saving techniques are used as well. A 
variable file is first created in prograa lines. Then after 
the vars are imbedded in aeaory, the file is SAVED to disk 
with <SAVE /"arg" VAL). Then the lines of prograaaing are 
deleted. Ordinarily the variables in a basic prograa are 
SAVED with the prograa and the vars ride in with the prograa 
when it is re-loaded. The vars file in diskette serves as 
back up if a prograa is inadvertantly CLEARED. Deleting the 
prograa lines saves nearly a K of aeaory. Most importantly, 
the vars file contains another aeaory saving device to be 
discussed next. 

"Pseudo Hex" is a neat systea that uses double 
character variables to represent nuabers 1 through 20. 
Qo=0, oa s l, ob s 2, oc s 3, on through ou s 20. Each usage of 
characters instead of nuabers SAVES 5 bytes for nuabers 1-9 
or 6 bytes for nuabers 10 through 20. There are 160 lines 
of prograaaing and each will average 3 usages of nuabers 
1-20. The "pseudo hex" table saves between 4 and 5K of 
aeaory. The entire vars file is only 569 bytes only part of 
which is the pseudo hex table. Therefore soae 4K of aeaory 
is saved this way. Pseudo hex lends itself to huaan aeaory. 
One can count on ones pinkies with it, using oa for one 
pinkie, ob for two, etc. Soon it becoaes habit. 

Another aeaory saving technique is the use of BOOLEAN 
expressions instead of IF THEN. Boolean expressions are 
chained in a line of prograaaing, where IF THEN expressions 
would require single lines. For exaaple, the two lines; 10 
IF A-l THEN 60 TO 100. 20 IF A=2 THEN 60 TQ 200. A single 
line with BOOLEAN would be: 10 60 TO <A<ob>* VAL 
"100"+(A)oa)* VAL "200". The prograa aakes extensive use of 
Boolean. Soae lines contain as aany a 12 IF THEN logicals 
expressed in Boolean. Meaory saving is treaendous, up to 
10% as coapared with conventional IF THEN expressions. The 
average savings realized is around 30X of total prograa 
length. In this prograa soae 3K of aeaory usage is 
conserved. 
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Prograa Listing (cant.) 

2046 LET D0=SX: IF K=0A AND SX+NN>=LN THEN 60 SUB PE: LET DO 
=00: RETURN 

2047 IF DD)Q0 THEN LPRINT : LET DD=DD-QA: LET NN=NN+0A: IF N 
N) S LN AND K=0A AND NN+0D)=LN THEN 60 SUB PE: LET D0=QQ: LEI 

nn=oa: return 

2048 IF DD)Q0 THEN 60 TO VAL "2047'' 

2050 RETURN 

2051 NEXT N 

2052 60 TO VAL "2000* 

2058 DIM o$(oa,oa): 60 TO FM 

2060 60 TO FH 

2061 CLS : 60 SUB VAL "2586": 60 SUB VAL "2572": CLS 

2063 CLS : PRINT AT OH, 01 5 "Please Select" "TAB 005 H <1) TS 20 
40 Printer?"' 'TAB 0Dl"<2) Centronics Printer": 60 SUB SQ: 60 
SUB ILS IF Z<QA OR Z)0B THEN 60 TQ VAL "2063": LET PR=Z-GA: 
IF PR-Q0 THEN LET /P=T: LET lx=VAL "32": LET qq=oq: LET fd= 
oo: GO TO FM 

2065 CLS : PRINT AT 01, OF; "Does printer need a" 'TAB OF; "line 
feed?: ""TAB 0F|"<y) yes or <n> no": 60 SUB SQ: 60 SUB IK 

: LET FD=Z 

2066 CLS : PRINT AT 0I,0D;"Turn Printer ON, and:" 

2067 INPUT "Input MAK Line Length?" ILL" IF FD=QA THEN LET /P 
=0: PAUSE 0L: POKE VAL "23323", LX: IF fd=oa THEN POKE VAL "2 
3324", oj 

2068 IF fd*ob THEN POKE VAL "23324", oo 

2070 CLS : INK 6: PRINT AT 3, 6; "FUNCTION MENU" "TAB 6}"<1> M 
ail List Henu" 'TAB 6; INK 5; M <2> Caption"»TAB 6} INK 6;"<3) 
Foraat""TAB 6!"<4) Page Manageaenf'TAB 6$ INK 5|"<5) Line 
Space"'TAB 6| INK 65"<6) Page End" "TAB 6|"<7) Letterhead" » T 
AB 6j INK 5|"<8) Sign Off '"TAB 6; INK 6j"<"j FLASH l; B 9"5 F 
LASH 05") Set up 0utline"'TAB 65 INK 55"<0) Print Outline"" 
TAB 65"Page s "Spg5TAB 16|'Line s "5nn 

2071 INK oe: LET gg=oa: PRINT AT ot,ok5pgi" * 5 AT ot,VAL "21" 
5nn5" ": 60 SUB sq: 60 SUB il: IF z<oo OR z)oi THEN 60 TO fa 

2072 IF Z=0F THEN 60 SUB PE: 60 TO FM 

2073 IF z=oe THEN 60 SUB sp! 60 TO fa 

2074 60 TO (z=oo)*VAL "3324"+(z=oa)*VAL "2000"+(z=ob)*VAL "2 
094"+(z=oc)*VAL "2083"+(z=od)*VAL "3004"+(z=og)*VAL "3370"+( 
z=oh)*VAL "3384"+(z*oi)*VAL "3300" 

2083 CLS : PRINT AT 5 , 1 1 i "FORMAT MENU" "TAB 6|"<t> Single Sp 
ace" "TAB 6;*<2) Double Space" "TAB 6;"<3) Line Length Chang 
e""TAB 65"<4) Page Center Change""TAB 65"<"5 FLASH 15"5"5 
FLASH 0;") To Function Menu" 

2084 60 SUB sq: 60 SUB il: IF z=od THEN CLS : INPUT "Input P 
age Center"}qq: 60 TQ VAL "2083" 

2086 IF z=oc THEN CLS : PRINT AT 0J,0A5"key In lgth: ": INPU 
T LL! LET /p=o: PAUSE 0L: POKE VAL "23324", (QJ AND fd=oa)+(o 
o AND fd=ob): PAUSE 0L; POKE VAL "23323", LX 

2087 IF z=oe THEN 60 TQ fa 

2088 IF z<oc AND z)oo THEN LET sd*z 
2092 60 TO VAL "2083" 

2094 CLS : PRINT AT QJ,Q05"Type the Cap"' 'TAB od}"Line lgth 
liait is: "5LX5 INPUT a$ 

2095 LPRINT TAB QQ-LEN a$/0B5»l: LET NN S NN+QA: 60 SU8 bul OU 
T po,24 

2096 60 TO FH 
2110 LET IN=0A 

2112 CLS : PRINT "Enter Field Nbr to Correct, or ""8"" f 
or next field. """Ml No. ";0""Fieids"'"l. "jQStQ.QA) "'2. "; 
0f(0,QB)'"3. ";Q$(0,0C)'"4. "5Q$(0,0D)'"5. "JQ$(Q,QE)'"6. "5 
Q$(0,0F)'"7. "5o$(o,og): INPUT "Field Nbr or 8:"}IN: IF IN=o 
h THEN RETURN ... ^ — 



Combining the above techniques reduced the memory 
length of SOQS Hail Merge froi around 21K to 9K total 
program length. These facts are given both to help you 
understand the cryptic programming and to whet appetites for 
a later article about Boolean Programming. When studying 
the programing, "think pseudo hex" to understand the "o 
vars". Look at lines 2586 through 2590 for the variable 
tables. It will help to lake a index card for reference to 
the variables. Later we will DELETE these lines and the 
vars will no longer be visable. While in that area, EDIT 
line 2590 and change the LETS for "N$0" to you own 
letterhead and sign off data. 

The LLIST Instructions 

Key in the LLIST as given. This is a long and 
laborious task and nothing can be learned in the process 
that cannot be learned by studying the listing. It is 
likely that quite a number of key in errors will result 
which will have to be de-bugged. Why not save yourself the 
labor and order the "SDOS Issue Diskette* which is offered 
in the yellow pages of this issue. The diskette also 
contains the other utilities and prograi presented in this 
issue. At $16.95 it is quite a bargain. But whether you do 
or not, please follow through the logic of the following. 

The program operates by <6Q TO 2061). The LLIST 
contains 5 programmed lenus which will be SAVED as SCREENS 
files to diskette. Then the line numbers for the menus will 
be deleted and then each lenu line will be re-created with a 
single <L0AD "name'' SCREEN*) command. The Variable files of 
Lines 2586 through 2590 will be initialized, then the Vars 
will be SAVED to disk and those line nunbers deleted. If 
you have completed the Key In project, Type <60 TO 2061) and 
follow the prompts until the FUNCTION MENU appears. If you 
cannot get that far, then you must re-check for key in 
errors in lines 2061, 2572, 2575, 2578,2579, 2578, 2579, 
2586, 2588, 2590 and 2596. Continue by the following steps 

1. Operate the program and exercise ail tenu functions. 
Create a mailing list, checking the menu selections of the 
Mailing list menu. Print the Mailing list in it's various 
offered modes. Test the "Print Labels" mode. Use a spare 
diskette to test the SAVE and LOAD functions. 

2. Check all selections of the Function Menu. Create a 
"Outline Data Base" of at least 2 Major Topics and 2 Sub 
topics of each. Then PRINT the Outline. Print a Caption, a 
Letterhead, a Sign Off, and test the page management 
functions. 

3. If any of the above fail, a report code will appear 
at the bottom of screen. You must then check the line 
number reported, edit the line and correct the key in error. 

4. We will now assume that SDOS MAIL MER6E is operating 
correctly in all modes. Now use a spare diskette and <SAVE 
/'m»rg B LlNE 2097) ENTER. This is a temporary save, using a 
different title and is for SAFETY in case you lose the 
program for some reason. 

5. <CLEAR) the computer and type <6Q TO 2061) ENTER. 
Respond to prompts until the Function Menu appears. <BREAK) 
and type <PRINT FREE) ENTER. Make a note of the figure 



Program Listing (cont.) 
2120 CLS I PRINT AT oj ,oo|o$(o, in) 5 AT ou,oo5"npt " J < "Co Name 
" AND in=QA)+("0ept " AND in=QB)+("St adr " AND in=QC)+ 
("ct,St,Zp" AND in=QD)+("lst Name" AND in=QE)+("Tel Nbr " AN 

0 in=QF): INPUT T$ 

2122 LET o*(o,in)-Ui CLS : 60 TO VAL "2112* 

2550 PAUSE VAL "4e4"! LET z=CQDE INKEYI-48! IF z<oo OR z)oi 

THEN 60 TO il: REM * For Key 0 to 9 

2553 RETURN 

2554 IF PEEK VAL "23611 B <VAL "221" THEN 60 TO IK! REM * For 
Yes or No. 

2555 LET Z=PEEK VAL "23560": POKE VAL "23611", VAL fl 220°: IF 
ZOVAL "78" AND ZOVAL "89" AND ZOVAL "110" AND ZOVAL "121 
" THEN 60 TO IK 

2558 LET Z-C0A AND z=VAL "89")+(0A AND Z=VAL "121")+(QB AND 
Z=VAL "78"H(QB AND Z=VAL "110") 
2560 RETURN 

2567 IF IN 127=253 THEN 60 TO BU 

2568 RETURN 

2570 CLS : PRINT AT oj,odj"INPUT FILE NUMBER"! INPUT t$! LET 
t$="MMR6"+U! SAVE /t* LINE 2061! BEEP oa.oa! CLS ! 60 TO F 

2572 CLS ! PRINT AT 4,4j INK 5}"*** "i INK 6}"SD0S MAIL MER6 
E"! INK 5J" tit" 'TAB 3; "MAIL LIST"! INK 3;" LABELS "5 INK 4 

1 "ENVELOPES" "TAB 6; INK 6} "INVENTORY "i INK 2j "Outlines"" 
TAB 13; INK 4|"WITH""TAB 35 INK 4|"SAFE"| INK 6!" DISK") IN 
K 5}" 0PERATIN6 "I INK 2j "SYSTEM" "TAB 11! INK 3! 1984 by" 
•TAB 3)"TS-2068 SAFE DISK UP-DATE" 'TAB 65"1317 Stratford Ave 
"TAB 5!"Panama City, FL 32404"TAB 7|"rights reserved" 

2575 FOR N=0A TO of! 60 SUB SQ! PAUSE VAL "100"! NEXT N! RET 

2576 INK xa! PLOT oo,oo! DRAW oo.VAL "175"! DRAW VAL "255", o 
o! DRAW oo, VAL "-175"! DRAW VAL "-255", oo! LET xa«xa+oa! IF 
xa)of THEN LET xa=oa 

2578 INK xa! BORDER xa+oa! PLOT oh, oh! DRAW oo,VAL "159"! OR 
AW VAL "239", oo! DRAW oo.VAL "-159"! DRAW VAL "-239", oo! LET 

xa*xa+oa! BEEP oa/oj,VAL "40"! IF xa)of THEN LET xa=ob 

2579 INK of! RETURN 

2580 BEEP .1,40! PAUSE VAL "20" ! RETURN 

2582 BEEP 0B/0J,QD! BEEP QB/OJ.OH! BEEP QB/OJ.QJ! BEEP QB/QJ 
,0D! RETURN 

2586 LET po=127! LET oo=0! LET oa*l: LET ob=2! LET oc*3! LET 
od=4! LET oe»5! LET of=6! LET og»7: LET oh*8! LET oi*9! LET 
oj=10! LET ok=ll! LET ol=12! LET om=13! LET on=14! LET op=l 
5! LET oq=16! LET or»17! LET os=l8l LET ot=19! LET ou=20 
2588 LET tw=oo! LET xa»2! LET sq=2578! LET ln*54! LET nn=0! 
LET pg-i: LET pr*l! LET bu=2567! LET zc=5! LET sq=2576! LET 
fi=2070! LET sd=l! LET sp=2990! LET lh=2610! LET pe=3014! LE 
T ik=2554! LET il=2550! LET 11=64! LET lx=80! LET qq=40! LET 
tb=8! LET fd=2 

2590 DIM n$(og,3D! LET n$(oa)="TS-2068 Safe Disk Up-Oate"! 
LET n$(ob)="l317 Stratford Ave."! LET n$(oc)="Panaaa City, F 
L 32404"! LET n$(oe)="Bill Jones"! LET n$(of)="904 871 4513" 
! LET n$(og)=*Sincerely," 
2596 RETURN 

2600 CLS ! PRINT AT oj,ojJ"SAVE Menu* "TAB 4|"<1) Save this 
Mail File" ' 'TAB odJ"<2) Save Program + File"! 60 SUB sq! 60 
SUB il! 60 TO (z<oa OR z>ob)*VAL "2600"+(z=ob)*VAL "2570"+(z 
=oa)*VAL "2602" 



4 



presented, Next, Install a freshly foriatted diskette and 
type: <SAVE /"arg" VAL> ENTER. This saves the variable file 
to diskette. We will call this your "prograa diskette" and 
it will be used for all SAVES frot now on. Next, DELETE 
lines 2586, 2588, and 2590. 

6. The Function Menu should still be still on screen. 
If not, type: <60 TO fn> ENTER. BREAK and type: <SAVE /"fa" 
SCREEN$> ENTER. The disk should run and the Function Henu 
will be saved to diskette. To take sure, type <LQA0 /"fa" 
SCREENS. The Function aenu should boot in froi disk. If 
not, repeat the procedure of itea 6. Next, ENTER a NEW LINE 
2070: <2070 LOAD /"fa" SCREEN*). Enter the line, which will 
replace the existing line 2070. Type! <6Q TO f»> ENTER. 
The Function aenu should boot in froa diskette. 

7. Type <LIST 2083 ENTER). BREAK and type <6Q TO 2083 
ENTER). The Foraat Henu should appear. BREAK and type: 
(SAVE /"fo* SCREEN! ENTER). Then type <CLS) and <LQA0 /"fo" 
SCREEN!) . The Foraat aenu should boot in froa diskette. If 
O.K. then type a new line 2083: <2083 LOAD /"fo" SCREEN!) 
Enter the line. Then type <6Q TO 2083 ENTER). Again, the 
foraat aenu should boot in froa disk. 

8. BREAK and LIST line 2572. Then add Line 2574: <2574 
STOP). Type <6Q TO 2572 ENTER). The title screen should 
appear. Type <SAVE /"cpr" SCREEN! ENTER). Type <CLS) 
ENTER. Type <L0A0 /"cpr" SCREEN!. The title screen should 
boot in. Type an new line 2572: <2572 LOAD /"cpr" SCREEN! . 
Type <CLS) <6Q TO 2572 ENTER). The title screen should boot 
in froa disk. Now DELETE line 2574 which has the STOP. 

9. Type <LIST 2000 ENTER). BREAK and type <6G TO 2000 
ENTER). The Mail List aenu should be on screen. 8REAK and 
type <SAVE /"al" SCREEN! ENTER). Type <CLS) <L0AD /"ai" 
SCREEN! ENTER). The Hail list aenu should boot in. Type a 
new line 2000: <2000 LOAD /"al" SCREEN!). 

10. Type: <LIST 3004 ENTER). BREAK and type: <6Q TO 
3004 ENTER). The Page Hanageaent Menu should appear. BREAK 
and type! <SAVE /"pg" SCREEN!). Type <CLS) <L0AD /"pg" 
SCREEN! ENTER). The aenu should boot in froa disk. Type a 
new line 3004: <3004 LOAD /"pg" SCREEN! ENTER). Type <CLS) 
<6Q TO 3004 ENTER). The screen should boot in. 

11. BREAK and type: <SAVE /"SDQS MMR6"LINE 2061 ENTER). 
This SAVES the aain prograa to disk. 

12. Type: <CAT ENTER). The disk directory should show 
the prograas: <arg VBLS) <fa BYTES) <fo BYTES) <cpr BYTES) 
<pg BYTES) <SD0S HMR6). Now we will install the file zero 
auto load line. NEW the coaputer. Then type this one line 
prograa: <10 BORDER 0: PAPER 0: INK 6: CLS: LOAD /"SDQS 
HMR6") ENTER. Next type a direct coaaand: SAVE /0 ENTER. 
Next, type: <LQA0 ENTER). The aain prograa should AUTO LOAD 
and operate. 

13. BREAK and type: <PRINT FREE ENTER). Coapare this 
FREE report to the earlier FREE report and you will see the 
savings of aeaory resulting froa the use of disk for aajor 
parts of the prograa. You aay go ahead and operate the 
software now and benefit froa the extra FREE aeaory to use 
for data storage. 

The concepts of "Disk Dependant" software should now be 
clear. The disk drive, eaployed with ingenuity, can | 



Program Listing (cent 5 
2602 CLS : INPUT "Input Hail File Nbr:"|t!: LET t!*V+t!: S 
AVfe /t! DATA o!0: 60 TO fa 

2604 IF Z=Q6 THEN CLS : PRINT AT QJ,QHJ M INPUT FILE NBR": INP 
UT W: LET t!=V"+t!: SAVE /t! DATA o!(): 60 TO VAL "2000" 
2990 LPRINT : LET NN-NN+QAI IF NN)=LN THEN 60 SUB PE 
2994 IF sd=ob THEN LPRINT : LET NN S NN+QA: IF NN)=LN THEN 60 
SUB PE 
2996 RETURN 

3004 CLS : PRINT AT 3,5? INK 6;"PA6E MANAGEMENT" ' 'TAB 5; INK 
5| "Next Page is "?pg"TAB 5|"Lines to Page End="Sln-nn"TAB 
ll!'Select""TAB 55 "<1> Page End" "TAB 5,*"<2) Adjust Line N 

uaber""TAB 5S"<3) Re-nuaber Page" "TAB 5;"<4) To Function M 
enu" 

3005 PRINT AT oe.osjpg!" *!AT og,VAL "23";ln-nnJ" ": 60 SUB 
sq: 60 SUB il: IF z<oa OR z)od THEN 60 TO VAL "3004" 

3006 IF Z=0D THEN 60 TO FM 

3008 IF Z*0B THEN INPUT "Ent new lines to end. "iNL: LET NN S 

LN-NL: 60 TO VAL "3004" 

3010 IF z=oa THEN 60 SUB pe: 60 TO fa 

3012 IF Z=QC THEN INPUT "Enter next pg No. "|P6: 60 TO VAL " 
3004" 

3013 60 TO VAL "3004" 

3014 IF PR=Q0 THEN LPRINT Im !pg ,m,mm "! LET NN= 
OA: LET P6=P6+QA: RETURN 

3016 IF NN<VAL "59* THEN LPRINT : LET NN=NN+0A: IF NN<VAL "5 
9" THEN 60 TO VAL "3016' 

3018 LPRINT TAB QQ|P6: OUT PQ,0L: LET P6=P6+0A: LET NN S QA: R 
ETURN 

3020 CLS : PRINT AT oj,obj"Install Data Diskette, "'TAB ob)"T 
ouch ENTER"! PAUSE VAL "4e4": CAT : INPUT "Enter TITLE ONLY 
of C ARRY "jt!l PRINT "t!: LOAD /t! DATA o!(): 60 TO V 
AL "2000" 

3300 CLS : PRINT AT oj,ob;"Qutiine Fill": INPUT "Enter Nbr o 
f Major Topics: "|aj: INPUT "Enter Nbr of Sub Topics of each: 
"jsb: INPUT "Enter Coluan width: " 5 Igt: DIM k!(aj,lgt): OIM v 
!(aj,sb,lgt) 

3304 LET a=oa: FOR n=oa TO aj 

3305 IF n)aj THEN 60 TO VAL "3320" 

3306 PRINT AT on,ooJ"Ent Major Line ft"5 INK oejn! INK of!" o 
r zz to quit": INPUT k!(n): IF k!(n)( TO ob)*"zz" THEN LET k 
!(n)="": 60 TO VAL "3320" 

3308 FOR y*oa TO sb: PRINT AT on.odj "Minor* 5 AT on.oql INK od 

|y! INK of: IF y)sb THEN 60 TO VAL "3316" 

3310 INPUT v!(n,y): IF v!(n,y)< TO ob)*"zz" THEN LET v!(n,y) 

="": 60 TO 3316 

3312 NEXT y 

3316 NEXT n 

3320 LET n»»j: LET y=sb! CLS : PRINT AT oj,obj"Print the Out 
line now?" "TAB ob;"<y> Yes or <n) No": 60 SUB ik: IF z=ob T 
HEN LET n=aj: 60 TO fa 

3324 CLS : INPUT "Input Tab for line print:"!tz 

3330 FOR n=oa TO aj: IF k!(n)( TO ob)=" " THEN 60 TO VAL "3 

354" 

3334 LPRINT TAB tzjk!(n)": LET nn=nn+ob: IF nn)=ln THEN 60 
SUB pe 

3338 FOR y=oa TO sb: IF v!(n,y)C TQ ob)»" " THEN 60 TO VAL 
"3346" 
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litigate the basic deficiency of the TS-2068, namely 
'insufficient FREE memory" to use for programming. As the 
Oliger EPROM developaents continue, Safe Disk Up-Oate will 
explore each new capability in detail. In the meantime, 
follow on issues will discuss subscriber questions and 
comments about this softare "SDOS Hail Merge*. Feel free to 
write. A quick letter response will be sent and the 
questions comments will appear in the next issue. 




North American F-86 



Program Listing (cont.) 
3342 LPRINT TAB tz+oe}v$(n,y)": LET nn»nn+ob: IF nn)«ln THE 
N 60 SUB pe 
3346 NEXT y 
3350 NEXT n 

3358 CLS I PRINT AT oj.ob} "Delete the Data?"' 'TAB obj"<y> Ye 
s or <n> No": 60 SUB ik: IF z=oa THEN DIM k$(oa,oa): DIM v$( 
oa,oa) 

3360 60 TO fi 

3370 FOR n=I TO oc: LET a$*n$(n): 60 SUB VAL '3380": NEXT n! 
LET m$=n$(of): 60 SUB VAL '3380': 60 TO fa 
3380 IF «$(LEN ■ THEN LET a$=a$( TO LEN il-oa): 60 TO 
VAL "3380" 

3382 LPRINT TAB qq-LEN a$/ob}m$: LET nn=nn+oa: RETURN 
3384 LPRINT "'i LET a$=n$(og): 60 SUB VAL "3380 s : LPRINT " 
': LET *$=n$(oe): 60 SUB VAL "3380": LET nn=nn+oh: 60 SUB pe 
: 60 TO f • B^P 



Printer- Control Pragramming 

<LET P=o> takes care of "sending LPRINT character streams" to a Centronics printer. The other half is sending 
"Printer Control Codes" to command the printer to do such things as change type fonts, set italic, and set underline 
modes. Most printers have a group of dip switches to manually set these functions, but ususally the dip switch panel is 
located in a difficult to reach area. What is needed is "software control". Lets explore how to build a software 
"printer control group". First, a MENU is needed. The menu would look something like the following; 
1. Pica Style 2. Elite Style. 3. Condensed Style. 4. Italic Font. 5. Underline. 

When the menu is presented, a touch of key 1-5 should set a variable to the value of the key touched. See the INKEY$ 
prompt routine in this issue, we will let the variable "ps" be our switch. After the menu and the INKEY$ prompt, this 
program line will do it: <900 LET ps=z). For example; if Key 1 is touched, Pica style is selected and "ps=l". Before 
continuing, you should make sure that the printer actually responds to a LPRINT command. Type <LPRINT "12345" ENTER". If 
12345 is printed to paper you may proceed. If not, then you must set up the printer correctly before proceeding. 

Now, assuming that a menu has been constructed, we will build a printer control group. LINE 900: <900 LET ps=z: 60 
TO 1000) 

Line 1000 should contain the programing needed to CANCELL all special printer set-ups to make ready for coaaands to 
establish the print styles selected at menu. Some printers have a single command code to do this, BUT many printers will 
also RESET TOP OF FORM when the RESET command is used. That would disturb a page format after a print style change has 
been directed. Line 1000 should contain groups of CANCEL commands for every conceivable printer set-up, WITHOUT resetting 
TOP of FORM. Then you'll be ready to set the print style selected at menu. 

Before going to the next lines, we will discuss how control codes are sent to a printer. Lets use a typical control 
code group as would be given in a printer manual. (27,100) (80,102). To send such a group, this programming would be 
needed: <line 60 SUB BU: OUT 127,27: 60 SUB BU: OUT 127,100: 60 SUB BU: OUT 127,80: 60 SUB BU: OUT 127,102 ). 
Explanation: <0UT 127) sends the control code to the printer, BUT- the printer must be READY to receive a control code. 
<60 SUB BU) is a line to assure PRINTER READY). We will now construct "line BU as line 2000. <2000 IF IN 1270253 THEN 
60 TO BU) <2002 RETURN). 

To explain the above: When a printer is READY to receive a control code, <IN 127) produces character code 237. If 
NOT READY, <IN 127) produces the character code 253. So, line BU (2000) will loop itself until the printer is READY. 

Now, using the examples given, line 1000 can be constructed: <1000 60 SUB bu: OUT 127,27: 60 SUB bu: OUT 127 

continue all control codes needed to CANCEL ALL printer set-ups—). Refer to your printer manual for the correct control 
codes. 

Next, <IF THEN programming is needed to set the print styles selected at menu. Typically, these would be: 

<1002 IF ps=l THEN 60 SUB BU: OUT 127, the printer control codes needed to set pica style. Use 60 SUB BU 

between each.) 

<1004 IF ps=2 THEN 60 SUB BU: OUT 127, the command codes needed to set ELITE style. Use 60 SUB BU between each 

OUT 127 command.). 

Continue building program lines as above for commanding the printer to set the other menu selections. When finished, 
the last line should be <line 60 TO the line of your major menu). Try out the "print style menu" and the program lines 
that have been constructed. Chances are that the print style changes selected at menu WILL be made at the printer, BUT, 
extraneous line feeds will occur. If so, check the printer manual to find the "Cancel Buffer" control code. Usually this 
is character code 24, but some printers use an extra command code. To eliminate extraneous line feeds, the Cancel Buffer 
code is inserted after each group of control codes for a special function. Dont forget to use <6Q SUB BU) between each 
OUT 127 command. 
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Questions and Answers 
** Theory of Operation 

** Dock and Extra Memory 

** What ' s Next? 



SAFE QUESTIONS" AND ANSWERS 



This column will answer questions of general interest about the Oliger 2068 
Disk I/F and JLO SAFE DOS. If you have questions you feel other users of this 
system would like to see answered, send them to me at: 11601 Whidbey Dr. 
Cumberland, IN 46229. Because my schedule can at times be simply too demanding 
to always find the time, I cannot promise to ALWAYS have this column ready for 
each new issue of Safe Disk Up-date. I will only do the best I can.. v 



What is the latest version of SAFE and what new features does it provide? 

The current version of SAFE as of today (8/16/87) is V2.34. The last change to 
SAFE (V2.33 to V2.34) corrected a minor bug in the FOR /n TO m command. The 
change from V2.32 to V2.33 also corrected a minor bug. The features it added to 
SAFE (from V2.2) were: 1)A fast new FOR/NEXT loop structure. 2)The ability to 
save a SCREEN$ via the NMI pushbutton along with all the previous functions by 
use of this pushbutton. 



What does the different numbers represent when referring to SAFE'S version? 

The first number (the "2" in V2.34) says that this is the second major version 
of SAFE. SAFE VI only supported a total STATE SAVE like V2's SAVE /"filename" 
ABS. The second number (the "3" in V2.34) is updated every time a new fuction, 
command, or group of functions and commands are added to SAFE. When the RESTORE 
/"filename" TO "newfname" command was added, SAFE'S version number went from 
V2.01 to V2.10. The last number in SAFE'S version is incremented any time the 
code in SAFE has been changed or modified, but no new commands or functions were 
added. This might be done to fix a bug or to make a portion of the code more 
efficient. An example of this would be when the FOR /n TO m routine was changed 
to fix a bug, which changed the version of SAFE from V2.32 to V2.33, and another 
to make it V2.34. 



SAFE gives me occasional toots when LOADing, but the programs LOAD O.K. This 
seems to happen most often with SCREEN$ files. What does this mean? 

Anytime SAFE sounds a short toot, it is reporting to you that an error has 
occurred, it knows it, and it will try again. SAFE will try 5 times to read a 
oarticular cylinder on the disk, and give a short toot after each try if an 
error occurs. If after 5 trys it still cannot read a particular cylinder, SAFE 
will start the load or save over from the beginning. It will do this up to 3 
times (with 5 single cylinder tries) before it will finally just give up and 
stop with an error report "T" (Disk I/O Error). If you hear some toots while 
SAFE is trying to SAVE or LOAD, it is simply a report to you that SAFE IS having 
trouble. If it finishes without an error report, then it finally was 
sucessfull...but you have been told it DID have trouble so can make another 
back-up of important files, etc. Most DOSes will retry when an error occurs, 
just like SAFE does, but will not let you know it is having any trouble. . .until 
it cannot load the file at all! 
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A last minute Addendum 

This page caae in late froa Hr. Oiiger, so I'll add^ it plus a report on a extensive check out of the "S0QS MAIL 
HER6E" prograa. I'll quote John's note to ne and then give his article. (Quote) I wrote this little article tonight 
as info for the disk systea. I plan on putting it in the aanual soae day, but for no* everyone who has the systea does 
not have this inforaation. (second note) Another unexpected bug has cropped up in soae versions of SAFE V2.33 and all 
copies of V2-34. A BASIC prograa load in the 2068 aode will stop with an "OUT OF MEMORY" report when plenty of FREE 
aeaory reaains. Advise everyone having this problea (only V2.33 and V2.34) to return their SAFE EPRQM to ae for FREE 
replaceaent with V2.35 which is now the current version. SAFE V2-32 is O.K. and the free replaceaent applies only to 
V2 33 and V2.34. (end quote) Ed note! The V2-30 and UP series of EPRQMS have Snapshot NNI screen SAVE, a FAST COUNTER 
addition to BASIC, and Disk File Naae Change. The next version will be V2-40 and will include the MER6E function in the 
disk language. 



CORRUPTED DISKS??? 

Occasionally you aight coae across a disk that has becoae corrupted in its file storage pointer area (track zero) 
that will siaply refuse to load any file at all. What will usually cause this is a glitch on power up of either the 
drive or coaputer, with the disk installed. Occasionally a bad WD1770 controller chip has also been found to cause this 
problea. ALWAYS reaove your disk froa your drive when powering up either your coaputer or the drive, unless the disk m 
the drive is soaething that you do not care if it is destroyed (or is one that you have a good back up for). It is best 
to siaply get into the habit of doing this all of the tine, regardless of the disk that you have installed. BUT 
EVERYONE can forget soaetiaes so I will present a saall prograa that MI6HT bring your disk back to life, or aay kill it 
coapletely. If it's gone already, you have nothing to lose by trying it and you aight be able to recover the corrupted 
disk. 

The first thing to try if you have a corrupted disk is to re-save file zero. File zero uses sectors 1-3 of track 
zero, and when SAFE loads ANY file it ALWAYS loads all ten sectors of track zero. Because the glitch could have only 
corrupted one of the first three sectors, we have a 30* chance that siaply re-saving file zero will fix the problea. 
Enter a single line prograa such as: 10 PRINT and save it to file zero with the coaaand <SAVE / 0 ENTER). Now try a CAT- 
or try to load a regular file. Perhaps we have fixed the disk already! If not.... 

If not, then after the coaputer stops with its error T report, enter the coaaand <PRINT IN 17S>. The sector number 
that is causing the problea will be printed on the screen. Because the CATalog area starts with sector 4 and ends with 
sector 10, and re-saving file zero into sectors 1-3 did not fix the problea, you will find that the actual bad sector 
will usually be in the range of 4-10. If the sector giving the problea is NOT sector 4, then it is VERY likely that we 
can restore the catalog area by using a little utility prograa. If it IS sector 4, you can still try it and it aay 
work. The utility prograa is given below. Key it in and do a CAT (even though it stops with a error), then RUN the 
prograa. 

10 RESTORE 30: FOR N=32000 TO 32006: READ A: POKE N,A: NEXT N 

20 RAND USR 32000 

30 DATA 205,10,0,205,142,10,223 

This little prograa re-saves the CATalog back onto the disk. If the error was actually in a later portion of the 
catalog area that was not being used (the CAT area can hold 177 file, and will not be full unless you have thai aany 
files on disk!), then the data re-saved will be correct and the disk will be coapletely recovered. You will find that 
over SOX of the tiae this prograa will restore access to your disk. To those interested in what this prograa does at 
the HC level, I provide the following annoted asseably listing. It is a very siaple little routine. 

CALL 00OA iturn on Oiiger Disk B bank 

CALL 0A8E jsave the contents of the B bank buffer to track 0. Data will be 

Iput there by using CAT before runing this prograa 
RST 18H Iturn off B bank, turn on interrupts & return to basic 
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More About SDOS MAIL MERGE 

A thorough Check Out 

Next issue two more functions will be added to SDOS MAIL MERGE, One will 
quickly let you flip through the listing to find a name or stock list. 
Presented will be the "Field Number and first line of the field". These lines 
will scroll until you find the one you are looking for, then the menu can be 
used to do something with that particular field of information. The second 
function will be to INPUT a KNOWN LAST NAME or "NOUN" of a stock list. Then the 
field having that noun will be found and the seven line field will be presented 
on screen. If more than one field contains such a noun, you may continue until 
each field is presented. 

Also, next issue we will use "TIMECHINE" to assemble the three search 
routines to make them ligntening FAST. By the way, after printing the LL 1ST of 
Mail Meree, I began to use the software extensively to produce mailing lists for 
mail out of invitations to subscribe to SDU. About 600 TS-2068 users were 
entered into six individual lists of 96 each. "96" was selected because that is 
a multiple of 24, and my Smart Text software uses mailing lists of 24 fields. 
Thats another story that we will take up in the next issue- how to split a large 
character array into several shorter arrays that can be used in other printing 
softwares. 

BLEEPS and GLITCHES: Yep, I found a couple! Hey, there aint nobody thats 
are perfect! The following line numbers should REPLACE those given in the 
LLIST. 

2005>IF z=oa THEN DIM o$ (mx, 7,31) : DIM 0$ (mx, 7, 31 ) : LET IN=OA: LET ms=OA 
: CLS : GO TO VAL "2009" 

206 1> PAPER 0:: CLS : GO SUB VAL "2536": GO SUB VAL "2572": CLS 
2068 IF fd=ob THEN LET /p=o: POKE VAL "23324", oo: POKE 23323, lx 

I also found some subscript problems when SORTING BY LAST NAME, "when there 
are not TWO nouns in the name". A few line changes as follows cleaned up this 
little problem. Enter the following program lines. Some replace existing 
lines. 

685>IF LEN b$=oo THEN GO TO VAL "689" 

686 IF LEN b$>oo AND b$<LEN b$>=" " THEN LET b$=b$ < TO LEN 
b$-oa>: GO TO VAL "685" 

687 IF LEN b$>aa AND b$<oa>=" " THEN LET b$=b$<ob TO ) : GO 
TO VAL "685" 

689 LET o$<n, oa)=b$+" "+o$<n,oa>< TO-1) 

690 NEXT n 
692 RETURN 

The "SDU ISSUE DISKETTE" will contain all of the above line number 
corrections, plus the two new added functions. See you next issue. 
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TECHNICAL SECTION 



0M9er Schematics 



Timex Tech Data 



Special Projects 



2068 STANDARD MEMORY CONFIGURATION 



ADORESS 
FFFFH 

EOOOH 
CO00H 
AOOOH 

eooeH 



HOME BANK 
(BANK *255) 



EXTENSION BANK 
(BANK -254) 







ROM 






ROM 




ROM 


'/////, 

..." , / 




ROM 




ROM 
ROM 






ROM 


ROM 


8K 


ROM 



UP TO 64K 

Full 64K addressing si 
not normally utilized 
Soe Section 5. 1 



CARTRIOGC 
(DOCK) 
BANK 
(BANK *0) 



HOME BANK RA M 



P-RAMT 
RAMTOP 



STKEND 
STKBOT 
WORKSP 
E-LME 
VAR3 
PROG 
CHANS 
ARS8UF 
6840H 
620OH 
6P*eH 
5C0CH 
580CH 



(MACHINE COPE VARIABLES) 
n<; ram-R£SOENT COO€ _ 
MACHINE STACK 



SYSTEM VARIABLES 



PRINTER BUFFER 



QS RAM-ftf- SPENT COO€ 
MACH»->€ STACK 



(MACHINE COPE VARIABLES) 



DISPLAY FILE 2 



SYSTEM VARIABLES 



PftHTER BUFFER 



CF9COH 
8F7COH 
RAMTOP 



STKENO 

STKBOT 

WORKSP 

E-LINE 

VARS 

PROG 

CHANS 

ARSOUF 

7B')6H 



6WH 
5C9W 
5O0OH 



A) 1 Display FK« 



B) 2 Display File 



^ Section 



PERMANENT . PLUS 
SUPPLYERS : USER FREE 

te d AD 'S 




The New England Moose 
and 

His White Face Harem 



Everybody needs somebody. 



allegro: 

Welshman 
produces 
touching 
pause, 
dwell and 



A experimental musical composition by a tin eared 
There are three <6Q SUB routines). <6Q SUB i00> 
a indefinite musical chord which is interrupted by 
any key. <6Q SUB 102> gets a 10 second musical 
<G0 SUB 122) brings prompts to adjust the chord 
time duration of a musical interlude. Line 



numbers 116 and 118 are data lines that contain the absolute 
frequencies of the musical scale. These notes are played in 
groups of three. Arrangement of a melody involves the 
sequencing of scales in the two data statements, using audio 
frequencies of the notes. Insertion of BEEPS in line 104 
can produce other effects. 

ALLEGRO 

MOO RESTORE VAL "116"; LET xx=VAL Wl 60 TO VJL 'W 
Zi02 RESTORE VAL "116": LET xx=VAL "600": 60 TO VAL " 04 
m 60 VAL "108": SOUND VAL "7",VAL "56": SOUND L " 
l'VAL T a2!VAL "8",VAL "12"! PAUSE VAL "20": 60 SUB VAL 
- a i08-: SO^NO VAL V.W "3",a2;VAL "9",VAL "13": PAUSE V 
AL "20". 60 SUB VAL "108": SOUND VAL "4",al|VAL 5 ,a2, AL 
10«,VAL "12": PAUSE xx! SOUND VAL "0",VAL "0";VAL .VAL 0 
•iVAl ' -2-.VAL "0"!VAL «3",VAL "O'iVAL "4",VAL "0"|VAL «5',VA 
L "0 s : RETURN 

I": IF f=VAL»10» THEN RESTORE VA1 "116": READ f 
110 LET x7=VAL "1 75" /(f tVAL "10"): LET x7=x7tVAL le6 
112 LET .2-INT (x7/VAL "256"): LET al'INT xMNT (x7/VAL "2 
56"WAL "256" 
114 RETURN 

116 0ATA VAL "880", VAL 
7. 76", VAL "830. 608", VAL 
AL "440", VAL "880", VAL 

•138.592", VAL "97.998 



•932 32", VAL "987. 76", 932. 32, VAL "98 
•58 27»,VAL "65.406",VAL "130.812", V 
"1760", VAL "92.498", VAL •69.296",VAL 
-MB - vn. ,i - , VAL "UO'.VAL "130.812",VAL "146.832 

i55.664-.VAL "164.812-.VAL "195.996",VAL "103.826 , VAL 138. 
592" VAL "1396. 928", VAL "1567.968", VAL "1318.496",VAL 20 2 
992" VAL -2217.472-.VAL "2349.312" , VAL "117UE6- V I 8, 
496',VAL »1396.928",VAL '493.88",VAL "523.248",VAL "587.328 
uai »m ftfi" VAL "246 94", VAL "61.624", VAL "10 
* DATA VAL ' "3136 936 » VAL "297.856",VAL "3520" VAL -698 4 
54"! VAL »783.984«,VAL "659.248".VAL "55",VAL 87. 308". VAL 7 
3.4 6-.VAL »174.816«,VAL "194.995",VAL W.«2'.VAL 349.23 
V VAL "391 992", VAL »329.642",VAL "10",VAL "10" 
2 i20 LET xx*VAL "4e4": 60 SUB VAL "104": 60 TO VAL 20" 
.122 RESTORE VAL «U8"1 INPUT "Note Lengt seconds , ; 
ET xx=a*30: INPUT "Interlude in Minutes? '|b: LET yx-xxlb. F 
OR n s VAL "1" TO yx: 60 SUB VAL "104": NEXT n 



A PRINT USIN6 ROUTINE and DEMONSTRATION 
This interesting batch of string slicing and 
concantations does a nice job of aligning decimal places and 
simulating the print using functions. There are shorter 
ways of doing it but this one is included for a study of its 
tricks. TYPE RUN. 

10 CLS : DIM a$(10,10): FOR n=l TO 10 

30 LET a»(n)=STR$ (1000000*RND*RND*RNO*RND): IF VAL a$(n)< 

.0000001 THEN 60 TO 30 
50 IF RND<.5 THEN LET a$(n)=a$(n, TO 5)+" 
60 IF a$(n,5)=". w THEN LET a$(n,6)=STR$ (1H9IINT RK0) ) 
70 PRINT n,a$(n): NEXT n! PRINT ,,"The numbers will now be 
placed in the first column and rounded to two decimal plac 

es . TOUCH ENTER" 

100 INPUT x$: PRINT AT 0,0!"")! FOR n*l TO 101 60 SUB 240: 
NEXT n: PRINT '"The numbers in left column will be placed in 

right column and trailing zeros and commas added. TOUCH EN 
TER": INPUT x$: PRINT AT 0,0} 

180 FOR n«l TO 10: 60 SUB 290: NEXT n: PRINT AT 21,3} "Touch 

ENTER to REPEAT' 

220 IF INKEY$=»" THEN 60 TO 220 

230 RUN 

240 LET a=VAL a$(n): LET a=INT (100*a+.05)/100: LET a*(n)=S 
TR$ a: PRINT a$(n): RETURN 

290 FOR 1-10 TO 1 STEP -i! IF a$(n,i)<>" " THEN 60 TO 320 

320° LET T C $=a$(n,l TO i): IF c*(LEN c$-2)="." THEN 60 TO 380 

350 IF c$(LEN c$-i) s V THEN 60 TO 370 

360 LET c$=c$+".0" 

370 LET c$ s c$+*0" 

380 LET a$(n)=" " 

390 IF LEN c$>6 THEN LET c«-c$(l TO LEN c*-6)+V+c*(LEN c$ 
-5 TQ ) 

400 LET a$(n,ll-LEN c* TO 10)«c$S PRINT AT n-l,16}af(n) 
420 RETURN 

HELP ! 

Safe Disk Up-Date needs both Utilities, Programing 
Tips, and ffajor Software Programs. The material in this 
issue ca*e fm the Editor's own treasure ^-^^ 
of that basket will soon be uncovered. PLEAbEHELPb) 
sharino your useful programing. See the editorial about 
sharing the proceeds of SOU ISSUE DISKETTE SALES"\. Ve all 
need particiption by all. 



Advertisement 



The programs and utilities that are presented in each 
quarterly issue of TS-2068 Safe Disk Up-date are assembled in 
one Diskette and offered at a price of $16.00 <post paid). 
Generally the text of the articles in SDU will be sufficient 
documentation. When needed, additional documentation will be 
furnished. Letter questions about the programs on SDU Diskettes 
will be published the following issue. Call for quick answers. 

SDU Diskettes are available in 5 1/4 inch diskettes, any 
FORMAT, For other size drives, a cassette is provided, Please 
use the order form and check off your disk format or cassette. 



SOU Diskette, October 87 issue contains the following: 

1. SOQS HAIL MERGE. Create, Store, and Print Hailing Lists, Inventories, Telephone Lists. Auto 
Print listings. Auto Print Hailing Labels. 

2. UTILITY SEXTET- Hex/DecUal, BINARY, MIXED MATH, ASSEHBLER, DISASSEMBLER. 

3. PSEUDQ HEX VARIABLE TABLE. Use with all BASIC Prograis to conserve prograi leiory and 
standardize use variables. <LQAD /'ph'VAR > in a prograa line lerges the vars to any BASIC prograi. 

4. PEEK K STATE PROMPTER. Three 60 SUB proipt routines for use after »enus. 

5. VISUAL ASSORTMENT. Four 60 SUB routines to provide color screens. 

6. ALLE6R0. Three 60 SUB routines to give a variety of iusical effects. 

7. PRINTER STATUS. Two alternate 60 SUB routines to check the printer status. 



SDB Diskete Order Form 
Please send SDU Diskette (October 87 Issue). 
Please Check 

5 1/4 inch DS/DD 40 track Diskette, 



5 1/4 inch DS/Hi Density or Quad Den, 80 Track. 
5 1/4 inch Single Side, DD, 40 track. 
Cassette for loading and transfer to my disk system. 



Name and Address 



fldvsr ti semen t 



S.D.O.S. Software !! 
Xotc Smart Text SDOS 



S.art Text is designed for SDOS. It is a «ord processor, text editor, data base aanager, and desk top Polisher- 
tJ'ti uses "the disk drive a, if it ..re a part of the ^"^^W^ WW™ 
exceptionally large disk . ail t ies «■« « * « t . bltsh this ne.sleU«r and to prlntthe 

iS S ' u r " SK AS "i ffLJEl L «- * Utt«. Page, of the better are 

""^S S - bo U9ht a copier, , printed » ^ * of ^jjg «» """not 

200 copies of three pages at a ti.e on one «uttmpta d r nt run i \J f ° D jrjgrip {; , of one disk data file, 
all! One can print tQOO l t t ers. each lo » dl " "/^f ^""graph 3, "for elch of the 1000 letters'. You 
paragraph 2 of another disk data file, and use a file i n .e a '» ™P» " „ Jb(jul 4 pige5 in length, and 

« not'need to do that Ho. about this: : You hav, , » *U . « s r ed i diskette e, ^ p. ^ ^ ^ 
you want to "print the unuscripf. Thats easy! Jus t eiec in- INTERRUPTED (about l2 o pages). 
Z elect -PrinUisk Data". Then the .hole 360K o daU print ,j I T "^'^/.^ , lypetriter , Thl ts 
Maybe all of the above is too convolut d n p nd , ^ § m ^ „ p „„ t 

good. The difference is you have .chut t . ™ and EDIT firs I ^ The ^ bj5e3 50 

bet»een paragraphs, or insert a subject t. Ut h a e , ou P ^ yQuf prinUng optlon5 

flexible that short or long paragraphs iay be tucked a.ay i •eeory, 

are .any. Print the first paragraph last, the I hird P s t, t t . ^ M|tcMtle . Uy . LeU er 

Letterheads center print auto.atic. Uy. The business^ bio * ^ e m)CH MUCH MORE! Start Text is programed 
!i9 „ off is autoaatic. Printing is cen ere o p ^ a » ^ tentronti! printer , The diskette contains a 
for Epson and Se ksosha coapalable printers. It is easy aoap 

t ee hour tutor that explain, ho. to .atch to any printer l o. T 2 h « ^ buyt „ „ , M(t 

The policy is to provide continuing after sale sup o v a telephone 
Text iay receive the V2-32 version and .anual up " "J. , } w strl tford five, Pana.a City, FL 32404. 

IXi^TZTZ-t,^: est ... ... - - 



Px-ogireiininejrs t 
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Continued from inside front cover 

ABBREVIATIONS TABLES — SYMBOLS 



FORMULAS 



f=Frequency| force 
f f =Flip-f lop 
^"Frequency modulation 
4pdt=4 pole double throw 
fv=Full wave 
g=ground 
gnd=ground 
g=6ate 

hfo=High Frequency Oscillator 
hy=High voltage 
if=Interaediate frequency 
incr=Increment! Increase 
inp=Input 

I=Current (amperes) 

IGFET=Insulated-gate field effect transistor 

jct=Junction 

JAN=Joint Army Navy 

JFEWunction Field effect transistor 

l=inductance| inductor; luminance 

ifo=Low frequency oscillator 

Ikg-Leakage 

lp-low pass 

lr=Load resistor (relay) 

LSHI=Large scale hybred integration 

a=flagneflux! aode 

mag amp=Magnetic amplifier 

ac=Momentary contact 

mgn s rtagneto» magnetron 

M0S=Metal oxide semiconductor 

nc=No connection! normally closed 

nf=Noise figure! noise frequency 

no=Normally open 

oc=Qvercurrent 

ohm=Qhanetter 

osc=Qscillator 

out=Qutput- 

pa=Puise amplifier 

pc=Printed circuit 

pct=Percent 

pec=Photo electric cell 

permb s Periaeability 

permb s Permeabiiity 

pfm=Puise-frequency modulation 

ph=Phase 

pk-Peak 

piyph=Poiyphase 
po k s=Positive 
preamp=Prea«plif ier 
prv=Peak reverse voltage 



fdbk=feedback 
fil=filament 
4p=Four pole 

4pst=Four pole single throw 
FET-Field effect transistor 
gdlk=6rid leak 
6=6ain 

hf=High Frequency 
hp=High pass 

hvr-High voltage regulator 
impd=Impedance 
inf=lnfinitej Infinity 
inY=Inverter 
IC=Integrated circuit 
jb=Junction box 
jk=Jack 

JANAF=Joint Army Navy Air Force 
k=Dielectric constant 
lf=Lov Frequency 
iia sv=Limit switch 
lo=Local oscillator 
lpo=Lov pover output 
isb=Lover side band 
LSKarge scale integration 
»ag=Magnet! aagnetic 
mag »od=r!agnetic modulator 
ag=riagnetic armature 
aic=Microphone 

MQSFET=Metal oxide seaiconductor field effect transistor 

neut=Neutral 

n»ag=Non magnetic 

noi=Normal overload 

oco=Open-close-open 

opr=operate 

os»v=0ne shot multivibrator 
p=Pole! probe 

pam=Pulse-amplitude modulation 

pcm=Pulse-code aodulation 

pda=Puise-duration aodulation 

pelec=Photoelectric 

pf=Power factor! Pulse frequency 

pf=Power factor! Pulse frequency 

pF=Picofarad 

pia=Pulse-intervai aodulation 
pls=Pulse 

pnp=Positive-negative-positive 

pot=Potentioaeter 

pri=Priaary 

pu-Pickup 

Continued on next page. 
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Continued from preceeding page. 



pwr a Power 

qtz=Quartz 

rcv s Receive 

rect=Rectifier 

reg=Regenerate 

resn=Resonate 

rf=Radio frequency 

rfi=Radio frequency interference 

r8is=Root nean square 

rot=Rotate 

rtr-Rotor 

Resistance (Ohas) 

RL=Resistance-inductance 

RTL=Resistor-transistor logic 

schea=$cheaatic 

sec=Secondary 

seaicond=Seaiconductar 

shf=Super high frequency 

sig=Signal 

slp=Slope 

snr = Signal to noise ratio 
sp=Single pole 
spkr=Speaker 
sqw=Square wave 

ssbo=Single swing blocking oscillator 

stalo s Stabiiized taster oscillator 

sw s Switch; Shortwave 

swp gen s Sweep generator 

swp-Standing wave ratio (Voltage) 

syn 2 Synchronous 

sys s Systen 

SCR^Seaiconductor controlled rectifier 

SW6=Stubs Wire fiage 

tc=Theraocoupie} Time constant 

thms=TherBistor 

thro=Theraal 

thyr=Thyristor 

trf=Tuned radio frequency 

tty=Teletypwriter 

uhf=Ultrahigh frequency 

undf=Underfrequency 

UJT=Unijunction transistor 

v=Verticaij Voltage 

vaa^toitaaaeter 

varistor s Variabie resistor 

Yco=Voltage controlled oscillator 

vdet s Voltage detector 

vf=Variable frequency! voice frequency 

vhf=Very high frequency 

vidarap=Video amplifier 

vlf=Very low frequency 

vo=Voice 

voa=Voit-oha ailliaapaeter 
vrly=Voltage relay 



Pwr splyPower supply 

Q=Herit of a capacitor or coils Quantity of electricty 

rcvr = Receiyer 

ref=Reference 

res=Resistor 

rev cur=Reverse current 

rf c-Radio frequency choke 

rly=Relay 

rnt=Re»ote 

rpt=Repeat 

rtty s Radio teletypwriter 
RC=Resistance-capacitance 
RCL=Resistance-capacitance-inductance 
sb=Sideband 

scr=Short circuit ratio 
sel s Selector 
sens=Sensitivity 
shtc=Short tiae constant 
sig gen=Signai Generator 
siwl s Straight line waveienght 
sol=Solenoid 

spdp=Single pole, double throw 
spst=Single pole single throw 
ssb s Single side band 
st=Sawtooth? Schaitt trigger 
SYO s Servo 
swp=Sweep 

swp intg=Sweep integrator 
sya s Syabol 

sync = Synchronize» Synchronizer 
S s Signal power} voltage standing wave 
SH=Shield 

t s Teaperaturei Tine 
tft=Thin fila resistor 
3ph=Three phase 
thyao-Thratron aotor 
tpho=Telephotogr'aph 
tt=Teletype 

uf=Ultrasonic frequency 
undc=Under cur rent 
usb=Upper sideband 
US6=United States 6age 
vac s Vacuua 

var s Variabie| Varistor 
vc s Voice coil 
vd=Voltage drop 
vern s Vernier 

vfo=Variable frequency oscillator 

vid=Videoj visual 

vidf-Video frequency 

v»=Voitaeter 

vol s Voluae 

vr s Voltage regulator 

va»=Vestigial sideband aodulation 

Continued on next page. 
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